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PREFACE 


Alors que l'informatique, après avoir envahie 
la quasi totalité des secteurs professionnels, entre dorénavant, 
sur l'initiative de l'Education Nationale, dans la formation des 
plus jeunes, l'ordinateur reste toujours, pour une grande majo- 
rité d'individus, un appareil complexe et mystérieux. 


Pour ceux-ci, ces machines sont capables 
d'accomplir les meilleures prouesses, mais peuvent aussi se 
rendre coupables des pires méfaits, images d'ailleurs largement 
véhiculées par le cinéma de science fiction. 


Pourtant l'apparition sur le marché, depuis 


quelques années, d'ordinateurs à faibles prix, permet aux non- 
initiés d'accéder aux mécanismes de l'informatique. 


C'est une chance à ne pas laisser passer si 
l'on veut avoir l'espoir de comprendre un peu mieux la société 
moderne, et ne pas devenir, surtout face aux nouvelles qénéra- 
tions, les ignorants de demain. 


Imaginez vous donc aujourd'hui ne sachant ni 
lire ni écrire. 


CH. J. 


INTRODUCTION 


11 n'était pas question pour nous de faire un 
ouvrage de plus sur l'apprentissage du BASIC. Il en existe tant, 
dont certains sont excellents. Nous avons plutôt tenté d'expli- 
quer certaines instructions BASIC de l'AMSTRAD, au travers de 
orogrammes que nous avons écris. Nous pensons en effet que 
programmer est la meilleure manière d'apprendre à programmer 
(c'est une évidence qui est souvent perdue de vue). 


Vous disposer, avec ce livre, d'une cassette 
contenant tout les programmes présents dans cet ouvranñe., Autant 
vous dire qu'ils fonctionnent donc tous sur votre AMSTRAD. 


Nous avons essavé d'aborder tous les domaines 
de l'AMSTRAD (sauf le son qui fera l'objet d'une publication 
distincte). Vous trouverez des jeux, des programmes mathé- 
matiques, et une approche de la haute résolution graphique. 


C'est pourtant sur la gestion des fichiers 
que nous avons mis l'accent, car il s'aqit pour nous de la 
partie la plus intéressante d'un micro-ordinateur, et vous 
trouverez deux programmes la concernant qui méritent d'être 
améliorés pour pouvoir exploiter au mieux les capacités de votre 
AMSTRAD. 


Enfin, nous avons terminé cet ouvrage avec 
une introduction à la comptabilité sur ordinateur, et c'est un 
véritable outil professionnel que nous mettons à votre dispo- 
sition. À vous de les adapter à vos besoins, et vous aurez ainsi 
largement remboursé le prix de cet ouvrage. 


J. 2. & CH. J. 





CHA ET TR ER 


LE LANGUAGE BASIC 


Ce chapitre est particulièrement destiné a 
ceux qui n'auraient aucune connaissance en programmation, ou qui 
utiliseraient pour la première fois un ordinateur. Nous ne 
saurions trop cependent leur conseiller d'acquérir un ouvrage 
d'initiation au BASIC. 

Les autres peuvent éluder cette introduction 
et se pencher sur les chapitres suivants, dédiés spécialement à 
l'AMSTRAD. 


1) L'ordinateur 


Votre AMSTRAD contient une mémoire, dont une 
partie recèle un certain nombre d'informations nécessaires à son 
fonctionnement. On y trouve par exemple le langage BASIC. Cette 
partie de mémoire s'appelle la ROM et si on peut la lire, il est 
impossible d'y ecrire autre chose. 

L'autre partie de mémoire, la RAM, vous est 
réservée et contiendra vos programmes. Cette mémoire est 
volatile et son contenu est perdu lorsque l'on éteint la 
machine. 


Pour transmettre ces informations, le 
micro-ordinateur utilise ce que l'on appelle les periphériques. 


Sur votre AMSTRAD vous trouvez : 


- le clavier qui vous sert a fournir des informations a 
l'appareil, 

- le moniteur video et l'imprimante dont le rôle est 
d'afficher les informations issues de l'ordinateur, 

— le magnetophone qui conservera sur une bande magné- 
tique les informations contenues en ram que vous désirez garder 
après avoir éteint l'appareil 


2) Le langage BASIC 


Pour communiquer avec votre ordinateur vous 
devez utiliser un lanqage approprié. 

En effet si vous tentez de converser avec lui 
dans votre lanque maternelle, il y'a peu de chance pour que vous 
obteniez un résultat quelconque. Vous devrez donc utiliser le 
BASIC qui est un langage informatique quasi universel (mais il 
en existe beaucoup d'autres : Pascal, 1090, etc...), et qui, 


avec des mots anglais fort simples, permet de dialoquer avec 
votre ordinateur. 


Par exemple l'instruction PRINT (qui veut 
dire imprimer),vous permettra d'afficher des résultats ou des 
messages à l'ecran. 


Pour essayer tapez sur votre clavier la 
ligne suivante 


PRINT "Bonjour" 


Si vous respectez scrupuleusement ce test 
vous constatez qu'il ne se passe rien. Appuyez maintenant sur la 
touche ENTER et vous voyez tout de suite le mot Bonjour 
s'afficher à l'écran. Il faut bien vous souvenir que 
l'ordinateur prend en compte un ordre ou une ligne de programme 
que lorsque vous aurez appuyé sur la touche ENTER. 


IMPORTANT : APPUYEZ SUR LA TOUCHE ENTER POUR VALIDER 
UN ORDRE 


Revenons sur l'instruction PRINT. C'est elle 
qui dans la plupart des cas va vous permettre d'afficher tous 
vos resultats. VoiLà quelques cas de fiqures sur la façon d'uti- 
liser l'instruction PRINT 


PRINT 3 * 4 <ENTER)> multiplie 3 par 4 et affiche 12 
PRINT 3 + 4 <ENTER> additionne 3 et 4 et affiche 7 
PRINT 4 —- 3 <ENTER)> soustraie 3 de 4 et affiche 1 
PRINT 3 / 4  <ENTER?> divise 3 par 4 et affiche .75 


(ce qui veut dire 0,75) 


Vous remarquerez qu'en informatique le point 
remplace la virgule pour les valeurs décimales 

On peut également utiliser des variables dans 
l'instruction PRINT à la place des valeurs numeriques 


À = 3 : B = 4 : PRINT À * B : PRINT ÀA + B : PRINT B - A : PRINT 
À / B <ENTER> 


Le résultat obtenu est identique au 
précédent, mais ecrit de façon différente. On défini deux 
variables À et B, et toutes les instructions PRINT sont sur la 
même ligne, les deux points servant à séparer les instructions. 
Pour améliorer la présentation à l'écran de ces résultats, nous 
allons les combiner avec du texte : 


A = 3 : B = 4 : PRINT "3 x 4 = ";A * B  <ENTER> 


Vous voyez que c'est déjà beaucoup mieux 
ainsi. Il faut cependant remarquer que : : 

- l'instruction PRINT affiche intégralement 
ce qui est entre les quillemets sans chercher à l'interprêter, 

- d'autre part, le point virgule après les 
guillemets permet de coller le résultat de À * B au texte. 

Essayez donc de changer le point virquie par 
une virqulie simple où par deux points dans la liqne précédente 
et vous verrez tout de suite la différence 


Cependant un tel système est un peu lourd 
d'emploi pour multiplier deux valeurs entre elles. L'instruction 
INPUT, va vous permettre de multiplier n'importe quelles valeurs 


de votre choix : 
INPUT A,B : PRINT À * B <ENTER> 


Lorsque vous aurez tapez cette liqne à 
l'écran, suivie de ENTER, vous verrez apparaître un point 
d'interrogation. Cela siqnifie que l'ordinateur attend une 
réponse de votre part. En l'occurence vous inscrirez en réponse, 
une valeur, une virquie et une autre valeur. L'ordinateur 
affichera immédiatement le résultat de Ja multiplication entre 
la lère et la 2ème valeur. vous répondrez par exemple 


3,4 ENTER)» 


L'instruction INPUT permet donc d'introduire 
des valeurs dans le corps d'une liqne d'instructions. De la 
même façon vous pourrez introduire du texte : 


INPUT A$: PRINT "BONJOUR ";AS <ENTER> 


Inscrivez votre prénom (toujours suivi par la 
frappe de la touche ENTER) et l'ordinateur va vous dire bonjour 
personnellement. Et toujours pour améliorer la présentation à 
l'écran on peut aussi, avec l'instruction INPUT, imprimer du 
texte, ce qui peut donner : 


INPUT "Quel est ton prénom ";AS : PRINT "Bonjour ";AS  <ENTER> 
C'est tout de même plus agréable ainsi. 
Malqres tout le principal inconvéniant de nos 


petites manuipulation reste qu'il faut à chaque fois retaper la 
ligne complète d'instructions pour obtenir un nouveau résultat. 


3) La notion de programme 


Nous allons reprendre l'exemple précédent en 
mettant devant la premère instruction un numéro de ligne 


10 INPUT "Quel est ton prenom ";AS : PRINT "Bonjour ";AS <ENTER> 


Lorsque vous appuyez sur la touche <ENTER?> 
il ne se passe rien. Vous venez de créer une ligne de programme 
que l'ordinateur a mis dans sa mémoire. Pour pouvoir l'éxécuter 
il faudra taper : 


RUN <ENTER> 


Jusqu'à présent pas beaucoup de changement. 
Pourtant retapez RUN à l'écran et l'ordinateur vous repose la 
même questicn, ceci chaque fois que vous le désirez, la ligne 10 
étant définitivement dans la mémoire de l'ordinateur, tout au 
moins tant que vous ne l'éteindrez pas ou que vous ne 
remplacerez pas cette liqne par une autre. 


Ajoutons maintenant une autre ligne à notre 
programme : 


20 INPUT "Quel est ton age ";N : PRINT AS;", tu as donc ";N;" 
ans" <ENTER> 


Apres avoir tapé RUN <ENTER>, l'ordinateur 
éxécute d'abord la ligne 10 puis la ligne 20, ce aui permet de 
dégager la rèqle suivante : 


- L'ordinateur éxécute le programme en 
suivant l'ordre croissant des numéros de ligne (sauf ordre 
contraire). 


4) Quelques instructions BASIC élémentaires 


— l'instruction GOTO 


Cette commande va nous permettre de diriger 
l'ordinateur sur une liqne de notre choix. 


Rajoutons à notre précédent programme la 
ligne suivante : 


30 GOTO 10 <ENTER> 


A l'exécution, après avoir imprimé à l'écran 
le dernier message de la liqne no 20, lorsaue la ligne 30 est 
rencontrée, l'instruction GOTO renvoie l'ordinateur à la ligne 


10 et recommence à exécuter ce court programme. 

À titre d'essai, remplacez la ligne 30 par : 
30 GOTO 20 <ENTER> 

La différence doit vous sauter aux yeux. 

- L'instruction IF ... THEN 


Elle permet de tester si une condition est 
réalisée ou non. Dans l'affirmative, l'ordinateur exécutera 
l'instruction située après THEN. 


Dans notre programme, nous désirons afficher 
le message "tu es un adulte", dans le cas où l'age donné est 
supérieur à 17 ans. Il1 suffit de remplacer la liqne 30 par : 


30 IF N>17 THEN PRINT "tu es un adulte "; AS 
40 END 


Si l'age est supérieur à 17 ans, la condition 
sera réalisée, et le message affiché. 

Dans le cas contraire, l'ordinateur sautera à 
la ligne suivante et s'arrêtera. En effet l'instruction END 
signifie la fin du programme. 

On pourrrait éqalement faire suivre THEN d'un 
numéro de ligne plutôt que d'une instruction : 


30 IF N>17 THEN GOTO 40 ELSE GOTO 50 
40 PRINT "tu es un adulte ";AS 
50 END 


La ligne 30 peut se traduire par : si est 
supérieur à 17 aller à la liqne 40, sinon aller à la ligne 50 

L'instruction ELSE va diriger l'ordinateur 
vers une ligne précisée dans le cas où la condition n'est pas 
réalisée. 

La combinaison de toutes ces instructions va 
nous permettre de créer un programme plus sophistiqué : 


10 INPUT "Quel est ton prénom ";AS$S : PRINT "Bonjour "; AS 
20 INPUT "Quel est ton age ";N : PRINT A$ ; ", tu as donc ":N:" 
ans" 


30 IF N>17 THEN 70 
40 IF N>11 THEN 60 
50 PRINT "tu es un enfant ";AS : GOTO 80 


60 PRINT "tu es un adolescent ";AS : GOTO 80 
70 PRINT "tu es un adolescent ";AS 
80 END 


Nous n'indiquons plus maintenant qu'il faut 
taper sur la touche ENTER à la fin de chaque ligne de programme 


vous remarquerez aux lignes 30 et 40 que si 
la condition n'est pas réalisée l'ordinateur sautera à la liqne 
suivante. Le GOTO après THEN a été supprimé car il est 


facultatf, de même qu'après ELSE. 


Enfin, aux liqnes 50 et 60, le GOTO 80 évite 


d'imprimer un message qui ne corresponde pas à l'age indiqué. 


Il existe beaucoup d'autres instructions 
BASIC dans la mémoire de l'AMSTRAD. Elles sont toutes réper- 
toriée dans votre manuel d'utilisation. La plupart sont emplo- 
yées dans les programmes de cet ouvrage. 


5) l'utilisation du magnétophone 


Avant de terminer sur cette courte intro- 
duction sur le langage BASIC, nous voudrions vous parler un peu 
du magnétophone. 


Vous trouvez que le petit programme que vous 
venez de taper, et j'en suis sûr d'améliorer, n'est pas si mal 
que ça pour un début et vous désirer le conserver. 


Ce n'est pas très difficile et même très 
simple. Il va falloir mettre une K7 dans le magnétophone, en 
prenant garde d'avoir laissé passer l'amorce, et donner un nom à 
votre programme. Mettons BONJOUR. 


Pour enregistrer ce programme BONJOUR sur la 
kK7, il suffit de taper : 


SAVE "BONJOUR" <ENTER> 


vous verrez alors apparaître à l'écran un 
message qui signifie que vous devez appuyer sur les touches REC 
et PLAY de votre magnétophone, ce que vous ferez. Le magnéto- 
phone va alors démarrer et enregistrer votre programme. 


Un ami vient vous voir et vous voulez lui 
faire une démonstration de vos nouveaux talents de programmeur. 


Pour retrouver votre programme, après avoir 
allumé évidemment l'AMSTRAD, il faut mettre la K7 dans le magné- 
tophone, appuyer sur la touche PLAY et taper : 


LOAD "BONJOUR" 
OÙ : 
LOAD "" 


si vous avez oublié le nom de votre programme 


A l'apparition du message READY votre proqra- 
mme est dans la mémoire de l'ordinateur prêt a être de nouveau 
exécuter. 


Si ça ne marche pas demandez vous si 
— vous avez bien rembobiné la K7 
— si le volume est correctement réglé 


Afin de tester vos nouvelles connaissances, 
et pour clore ce chapitre, nous vous proposons un petit program- 
me sur les instructions BASIC. 
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TEST DES CONNAISSANG 





PEM --------- 
FEM DICTIONNAIRE BASIC 
REM & Test de cornaissance 
PEM = 
CLS:INF 0,0 
PRINT TAB(22) ©STRINGS(30,40) 
PRINT TAB(25) "DICTIONNAIRE" 
PRINT TAE!{22!' STRING#(30,140) 
FRINT : PRINT : PRINT "Quel est votre prenom ";:INPUT v$ 
sl= Or in,= 10 
SEAD 2,a$,b#$ 


h=0 

FRINT:PRINT'Signification du mot ------- > “;a$ 
PRINT: INPUT "Tapez votre reponse ------- > "ic 

rie 

PFINT CHR$ (23) 

i=i+i 

IF 2#{3>c$ THEN 230 

FOR s=1 TO 20 

LSCATE 2,12: PRINT "BONNE REPONSE" 

NET s: CLS 

IF i=1S THEN 260 ELSE 110 

FOR r=1 TO 15° 

LOCATE 2,12: PRINT "MAUVAISE RE PONS E" 
MEXT r: CLS: 

PRINT : PRINT “La bonne reponse etait ----> ":PRINT:LOCATE 30,4:PRINT b#:PRI 


INPUT “Tapez sur ENTER pour cont nuer";x: IF x<>20 THEN 310 

CLS : IF i>=15 THEN 310 ELSE 110 

DATA 1,print,imprimer ,2,input,entrer,3,for,pour,4,next,selon,S,step,pas,é,if 
,7;then,alors,8,else,sinon 

DATA 9,save,sauver,10,load,charger,11,break,arret,12,run,executer,13,new,nou 
u,14,g9oto,aller,15,locate,positionner,16,window, fenetre 

FOR t=1 TO 50 

FRINT "F I N DE PROGRAMME" 

NEXT t:CLS 

PRINT v$#;" , vous avez ";ji;j" reponses justes sur 16" 

FOR N = 1 TO SOO:NEXT 

IF i>2=8 THEN 390 

CLS:PRINT:PRINT"Veuillez reviser serieusement"“ 

FOR n= 1 TO 1000 : NEXT 

END 


CHA EN TRIER 


LES JEU X 


1) Jouons au loto 


Voilà un problème simple que peut se poser un 
programmeur amateur. Il s'agit de choisir au hasard de 6 à 10 
chiffres, ce que l'ordinateur peut facilement faire grace à 
l'instruction RND. Mais, pour compliquer les choses, on ne doit 
pas tirer un numéro déjà sorti, et, pour la beauté du programme, 
on va classer les numéros tirés par ordre de grandeur. 


Les lignes 100 à 145 permettent de faire une 
présentation à l'écran et demandent combien de chiffres doivent 
être tirés (ligne 140). 


De 180 à 310 on choisit de façon aléatoire les 
chiffres, avec, de 220 à 240, une vérification pour savoir si le 


chiffre est compris entre 1 et 49, de 250 à 290, on regarde si 
le numéro tiré est déjà sorti. 


Le sous programme qui occupe les lignes 1000 
a 1120 fait un tri par ordre croissant des nombres sortis. 


Enfin les lignes 350 à 370 affichent à 
l'écran les valeurs triées. 


Liste des variables : 


no = nombre de chiffres à tirer 


y = chiffre tiré 
nu (Zz) = tableau des chiffres tirés 
REMARQUES : 


Les tableaux : 


L'instruction DIM permet de ranger des 
éléments dans un tableau imaginaire et de donner ainsi à chaque 
élément un numéro d'ordre. 


Par exemple à la ligne 50 DIM nu (10), on 
crée un tableau de 10 éléments (en fait 11 de 0 à 10), qui 


seront rangés dans les variables nu (1) à nu (10). 


Dans nogre programme, si l'AMSTRAD tire les 
chiffres suivants, 18, 47, 2, 6, 39, 25, le tableau, après tri, 
se présentera de la façon suivante : 


NT) NC2) NIS) N(4)  N(S)  N(6) 
e 6 18 25 39 4? 


Avec v pour Variables et 4 pour données. 


L'instruction DIM permet de manipuler 
beaucoup plus facilement des variables et facilite l'écriture de 
programmes. Ainsi trois lignes seront suffisante (on aurait pu 
les mettre sur une seule ligne), de 350 à 370, pour afficher 10 
variables (ou beaucoup plus selon la boucle FOR NEXT et la 
dimension du tableau). 


Le chiffre entre paranthèse représente la 
dimension maximum du tableau, c'est-à-dire le nombre maximum 
d'éléments que ce dernier pourra recevoir. Il est cependant 
important de ne pas surdimensionner le tableau, car l'ordi- 
nateur, lorsqu'il rencontre l'instruction DIM, réserve en 
mémoire la place destinée aux variables ce qui diminue la 
mémoire disponible pour le reste du programme. 


L'instruction FOR ... NEXT ... STEP 


EX : 10 FOR x 1 to 10 
20 print 


x 
30 next x 


Ce court programme peut se traduire en 
français par l'ordre ‘imprimer x à l'écran 10 fois'. En effet 
l'ordinateur va impimer la valeur de x, incrémenter x de 1, 
imprimer la nouvelle valeur de x, incrémenter de nouveau x et ce 
jusqu'à ce que x soit égal à 10. 


Si on remplace la ligne 10 par 
10 FOR X = 1 TO 10 STEP 3 
seules les valeurs 1, 4, “lis et 10 seront 
affichées car x sera cette fois-ci incrémenté de 3. STEP 


représente le pas d'incrémentation, et la valeur qui précise ce 
pas peut même être comme à la ligne 1040. 


30 R 


100 
110 
120 
130 
140 
145 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 


LOTO 


EM == 
50 DIM nu(10): BORDER 


CLS : PRINT 
PRINT " 


PRINT"Combien de 


[e) 


6$$ L OT O $$$" 
PRINT : PRINT : PRINT 


chiffres" 


INPUT'"voulez vous jouer (6 a 10) ";no 


IF noté OR no>10 


REM tirage au sor 


THEN 140 


t 


REM --------222 22 


FOR x=1 TO no 
y=RND(0O.1) 
y=y#100 

Y=INT (y) 

REM on verifie si 


IF x = 1 THEN 300 
REM nombre deja s 
FOR z=1 TO x-1 : 

IF y=nu(z) THEN x 


le tirage est inferieur a 1 ou superieur a 49 
IF y<i OR Y>49 THEN x=x-1 : 


orti ? 
h=0 
=x-1 : h=i 


GOTO 310 


Z=X 


REM on met le nombre dans le tableau 


NEXT z : IF h=1T 
nu (x)=y 

NEXT x 

GOSUB 1000 

REM affichage 
PRINT 

FOR x=1 TO no 
PRINT nulx), 

NEXT x 


HEN 310 


PRINT "Voulez vous un autre tirage (O/N) 7?" 


a$=INKEYS : IF a$ 


IF a$="o" OR a$="0" 
1F a$="n" OR a$="N" 


END 


THEN 390 
THEN 100 
THEN 420 ELSE 390 


REM === 


REM tri des nomb 


res sortis 


REM "2" 


FOR x=1i TO no 
FOR y=no TO 1 ST 
IF nuly)>=nu(x) 
IF x>y THEN 1100 
a = nu(x) 
nu(x)=nu(y) 
nu(y)=a 

NEXT y 

NEXT x 

RETURN 


EP -1 
THEN 1100 


Deviner des chiffres. 


Voilà donc un programme tiré d'un jeu célébre 
et dont je dois d'abord vous rappeler les règles. 


vous devez découvrir une combinaison de 
chiffres (4 à 9 selon le degré de difficulté), choisie de façon 
aléatoire dans le programme. À chaque essai, l'ordinateur vous 
indique quels sont les chiffres justes et bien placés et les 
chiffres justes mais mal placés. À vous d'en déduire la bonne 
combinaison. 


Le programme, assez bien documenté n'appelle 
pas de commentaire particulier. Vous remarquerez cependant que 
les tableaux f (x) et t (x) n'ont pas été déclarés en début de 
programme, ce qui ne l'empêche pas de tourner normalement. 
Faites donc des essais pour savoir à partir de combien 
d'éléments on doit déclarer un tableau. 


Liste des variables : 


= niveau de jeu 

nombre d'essais autorisés 

= nombre de tentatives 

c = nombre de chiffres justes et biens placés 


<A 3 
Il 


e (x) = chiffres choisis par le joueur 

s (x) = chiffres tirés par l'ordinateur 

f (x) = tableau de comparaison de la combinaison du joueur 

t (x) = tableau de comparaison de la combinaison de 
l'ordinateur 

REMARQUES : 


Le rôle de l'instruction VAL est de transfor- 
mer une variable chaîne en un nombre. 


Par exemple, à la ligne 1240, si vous tapez la 


touche 1, la variable a$ sera égale au caractère "1". la ligne 
1250 transforme ce caractère en chiffre et le range dans la 
variable à, ce qui permet de saisir des valeurs numériques 


directement à l'aide des instructions INKEYS et VAL (a$). 


AMSTSRMIND 


3 REM ------------ 
S REM DEVINER DES CHIFFRES 

7 REM --------e 
10 MODE 1 : CLS : INK 0,0 : BORDER O 

20 DIM s(9) , e(9) 

100 REM --------------- "2 

110 REM Choix du niveau de jeu 

120 REM ---------- 

130 CLS 

140 PRINT TAB(10)"AMSTERM I N D" 

150 PRINT : PRINT : PRINT 

152 PRINT “Pour ne pas trop compliquer le jeu,": PRINT 

155 PRINT "il n’y a pas 2 chiffres identiques ": PRINT 

157 PRINT "dans la meme combinaison":PRINT : PRINT 

160 INPUT "Niveau de jeu { 1 a 6)"jin 

170 n=INT(n) 

160 IF n<i OR n>6 THEN 130 

190 n=n+3 

200 GOSUB 1000 

207 q=n+tii : v=0 

210 GOSUB 1100 

215 v=vt+i 

217 IF v=q THEN 270 

220 GOSUB 1200 

230 GOSUB 1300 

240 PRINT TAB(37) c, TAB(é61) b 

250 IF c=1 THEN GOSUB 1400 : GOTO 300 

255 GOTO 215 

270 PRINT : PRINT "Vous avez fait “;jv;j" tentatives" 

280 PRINT "la combinaison a decouvrir etait : "; 

290 FOR x=1 TO n : PRINT s(x)5;5: NEXT x 

300 PRINT "voulez vous faire une autre partie (O/N) ?" 

310 a$=INKEYS : IF a$="" THEN 310 

320 IF a$="o" OR a$="O" THEN RUN 

330 IF a$="n" OR a$="N" THEN 999 ELSE 310 

999 END 

1000 REM ------------- 
1010 REM Tirage au sort de la combinaison 

1020 REM ------------ 
1039 FOR x=1 TO n 

1940 a=RND (9) 

1959 a=a X 10 

190469 3=INT (a): IF x=1 THEN 1070 

1965 FOR wxz1i TO x: IF a=s(wx) THEN wx=x: x=x-1 

10647 NEXT wx 

1970 s{x)=a 

1Q89 NENT x 

RETURN 

DEN mm 
FEM affichage du jeu 











CHIFFRES JUSTES CHIFFRES JUSTE 





DTNT et bien places et mal place 


69 


pere mise 
4 > D () GO 0) 
DDr-1219 


PRINT : PRINT 
RETURN 


REM --------""" "2" "22" "2" 


REM saisie des caracteres 


REM 222222" 


FOR x=1 TO n 

a$=INKEYS : IF a$="" THEN 1240 
a=VAL (a$) 

e(x)=a 

PRINT ex); 

NEXT x 


RITURN 


REM "0 


REM Test des chiffres justes 


RIM == 


b=0 : 

FOR x n : t(x)=s(x) 

FOR z n : f(z)=e(z) 

REM Test des chiffres justes et biens places 
IF f(x)=t(x) THEN f(x)=10 : t(x)=11 : c=c+i 
REM test des chiffres justes et mal places 
IF f{z)=t(x) AND z<>x THEN b=b+1 : #(z)=10 : 
NEXT 7 

NEXT x 

RETURN 


REM == 


RENM combinaison gagnante 


REM ------------"--"---- "2" 


FFINT "BRAVO, vous avez trouve la solution en 
RETURN 


t(x)=11 


z=n 


3) Le jeu du pendu 


Le but de ce jeu est de trouver un mot, en 
cherchant lettre par lettre, choisi par l'ordinateur dans les 
mots stockés en DATA. 


Après 9 essais infructueux, vous serez 
définitivement pendu. Pendant le déroulement du programme vous 
verrez se dresser un élément de la potence à chacune de vos 
erreurs. 


Le programme stocke 100 mots de vocabulaire 
en DATA et utilise les codes graphiques pour obtenir le dessin 
de la potence à l'écran. En voici le listing. 


Liste des variables : 


b position du mot choisi en DATA 
t = nombre d'essais justes 

u = test lettre juste ou non 

wW = longueur du mot choisi en DATA 
x = nombre d'échecs 

z = total des tentatives (x + t) 

) 


p (25) = position des lettres découvertes 


REMARQUES : 


L'instruction DATA permet de stocker, à 
n'importe quel endroit du programme, des variables numériques ou 
alphanumériques. Vous pouvez remarquer aux lignes 2000 à 2110 
que les chaînes de caractères n'ont pas besoin d'être écrites 
entre quillemets. 


Pour lire ces variables on utilise 
l'instruction READ. Pour exemple READ a$ lira le mot table. Un 
second READ a$ rangera le mot cuisine dans la variable a$. Donc 
l'instruction READ lit séquentiellement les mots inscrits en 
DATA et un pointeur se positionne sur le mot suivant le dernier 
lu. 


L'instruction RESTORE repositionne le 
pointeur sur le premier mot inscrit en DATA. 


Examinons ce court programme. 


10 FOR N - O0 TO 9 
20 READ a$ 

30 NEXT N 

40 READ a$ 

50 PRINT a$ 


N'oubliez pas de rajouter aussi la liqne 2000 
du programme. 


A l'exécution vous pouvez constater que sur 
l'écran s'affiche le mot fenêtre, l'instruction READ de la ligne 
20 lit les 10 premiers mots, celle de la ligne 40 le 11ème mot. 


Rajoutez la ligne 35 RESTORE. À l'exécution 
s'affichera le mot table, le pointeur ayant été remis au début 
de la liste par l'instruction RESTORE. 


Dernier essai, uniquement avec la ligne 2000 
comme DATA, vous changez la ligne 10 par : 


10 FOR N = 1 TO 20 


Lors de l'exécution l'ordinateur vous 
répondra par un OUT OF DATA, ce qui veut simplement dire que 
vous avez essayé de lire plus de données qu'il n'y en avait 
rangées dans les liqnes de DATA. 


L'instruction CHRS 


Il existe au moins deux méthodes pour faire 
du graphisme à l'écran : de dessiner point par point (avec DRAW, 
PLOT etc ...) ce qui donne de très bon résultat mais qui est 
très long, d'utiliser les codes graphiques, ce qui donne un 
dessin beaucoup plus grossier mais qui prend très peu de place 
en mémoire. 


C'est ici la seconde méthode que nous 
utilisons. Vous trouverez à la fin de votre manuel d'utilisation 
tous les caractères qraphiques disponibles avec leur code. Pour 
imprimer un caractère graphique à l'écran il suffit de taper 
PRINT CHRS (x) ;, x étant le code du caractère souhaité. Si vous 


n'avez pas vraiment compris examinez les liaqnes 1060 à 1220 ou, 
ce qui est encore mieux faites vous même des essais. 





JO REM' = rsesrsseesessemmemposs=spsesmeteeessssee sms 
20 REM PENDU 

30 REM ----------———————— mm mm mm sm mms 2 = 
50 MODE 1 

60 DIM p(25) 

70 REM -------- "7" 
80 REM tirage au sort du mot en data 

90 REM --------------————— mm = 
100 CLS 

110 PRINT : INPUT “Entrez un nombre de 1 a 10 “;ÿa:a=INT(a) 
120 IF ai OR a>10 THEN 110 

130 b=INT (RND(a)#100) 

140 REM ------- mm mm 
150 REM lecture du mot en data 

160 REM ---------—————— mm mm mm mm mm mm 
170 RESTORE 

180 FOR n=0 TO b 

190 READ mot$ 

200 NEXT n 

210 w=LEN (mot$) 

220 REM -------------—-----——-—-2mmmmmmmsmsmmmmmm mm 
230 REM deroulement du jeu 

240 REM ----------------mmmmmmmmmmmmmmmmmmmmmmmmsmmmmmm—— 
250 LOCATE 10,21 

260 PRINT STRING#(w, ".") 

270 x=0 : z=0 : t=0 

280 WHILE x <> 9 

290 u=0 

BSOO REM.=-=--=--esssnss mens ns see 
310 REM saisie du caractere 

S2O0-REM == 25m eRn ee ss SR RS sens Se ss ssse ss 
330 a$=INKEYS:IF a$="" THEN 330, 

340 IF ASC (a$)<97 OR ASC(a$))>122 THEN 330 

350 REM ----------———-—-m mm mm 
360 REM comparaison du caractere avec le mot 

SAONREM === esse nes sers seen Sesssn ess ns 
380 FOR j=1 TO w : pi;j)=0 

390 IF a$=MID$S(mot$,j,1) THEN plj)=;j : t=t+1 


400 NEXT j 

410 REM --------- nm = = 
420 REM affichage du caractere si exact 

430 REM --------------- 


440 FOR j=1 TO 

450 IF pij)<>0 THEN LOCATE 9+p(j),21 : PRINT a$;:u=i 
460 NEXT ;j 

470 IF u=0 THEN GOSUB 1000 

480 z=zt1 

490 IF t=w THEN GOSUB 1300 : x=9 

9500 WEND : IF t=w THEN 540 

510 LOCATE 1,23 

520 PRINT :PRINT "vous avez perdu apres ";jz;" essais" 
530 PRINT "le mot etait ";mot$;" ,vous etes pendu” 
540 INPUT "une autre partie (o/n) ";a$ 

S50 IF a$="o" OR a$="0" THEN 70 

S60 IF a$="n" OR a$="N" THEN 570 ELSE 540 

570 END 


L'instruction LOCATE 


Evidemment si vous écrivez n'importe où vos 
codes graphiques vous n'obtiendrez rien de très cohérent. 


Vous devez utilisez l'instruction LOCATE dont 
le rôle est de positionner le curseur. 


En mode 1, LOCATE 10,5, mettra le curseur a 
la 10ème colonne de la 5ême ligne (regardez également 
l'appendice VI page 2 de votre manuel). 


Si cette instruction est suivie d'un PRINT 


CHRS (x), le code de x sera affiché à la position du curseur. 


Le point virqulie (;) après CHR$S (x) empêche 
le curseur de passer à la liqne suivante. Regardez à nouveau les 
lignes 1050 à 1220 et vous aurez tout compris. 


Les instructions WEND WHILE 


Examinez les lignes 280 et 500. Cela veut 
dire que tant que x sera différent de 9, le programme lorsque il 
rencontrera l'instruction WEND, recommencera l'exécution à la 
ligne 290. Pratique non ? 


1000 REM --------------------——— 
1010 REM affichage du dessin 

1020 REM ---------------—mmmmmmmmmmm-mmemmmemesms-e 
1030 x=x+i 

1040 ON x GOTO 1050,1070,1100,1120,1140,1160,1180,1200,1220 

1050 LOCATE 14,14 

1060 PRINT CHR$(140) ; CHR# (140) ; CHR$(141) 5; CHR$(140):GOTO 1230 
1070 FOR j=i TO 6 : LOCATE 16,7+j : PRINT CHR$(133);:NEXT ;j 

1080 LOCATE 16,7 : PRINT CHR$(135) 

1090 GOTO 1230 

1100 LOCATE 17,7 : PRINT CHR#&(131) ; CHR$(131) ; CHR$(131) ; CHR$S(131) 
1110 GOTO 1230 
1120 LOCATE 21,7 
1130 LOCATE 21,8 
1140 LOCATE 21,8 
1150 GOTO 1230 
1160 LOCATE 21,9 
1170 GOTO 1230 
1180 LOCATE 20,9 
1190 GOTO 1230 
1200 LOCATE 22,9 
1210 GOTO 1230 
1220 LOCATE 21,10 : PRINT CHR$#(196) 

1230 RETURN 

1S00-REM === sé See SES RRRS ESS ee see Sss Ses 

1310 REM partie gagnee 

4320 RENE == ssn ess ss sessssssssess-ssssnee 

1330 LOCATE 1,23 

1340 PRINT "BRAVO vous avez trouve“ 

1350 PRINT "apres ";z;" essais" 

1360 RETURN 

2000 DATA table,cuisine,chaise,fauteuil,tabouret,armoire,bibliotheque,radiateur, 
tapisserie,bahut,fenetre 

2010 DATA cheval,elephant,hipopotame,guepard,souris,corneille,girafe,phoque,cach 
alot,crocodile,panthere 

2020 DATA mysterieusement ,episodiquement,curieusement ,extremement ,machinalement, 
anticonstitutionnellement 

2030 DATA platonique,gentillesse,facilite,stupidite 

2040 DATA television,aspirateur,automobile,transatlantique,ordinateur ,magnetosco 
pe,amplificateur ,motocyclette 

2050 DATA poireau,courgette,safran,aubergine,aubepine,eucalyptus,jonquille,edelw 
eis,ananas,mandarine 

2060 DATA cinematographe,radiologie,telephone,dictionnaire,imprimerie,stomatolog 
ue,ophtalmologiste 

2070 DATA epistolaire,reconnaissance,reparation,respiration,coccyx,bouteille,abc 
es,arcboutant catastrophique 

2080 DATA saxophone,clarinette,tuba,acordeon,contrebasse,violoncelle,trompette,h 
arpe,luth,clavecin 

2090 DATA araignee,fourmis,doriphore,papillon,cafard,punaise,lezard,salamandre,h 
aneton,libellule 

2100 DATA paysage,cumulus,aiguille,neve,peninsulaire,continental,asiatique,orien 
tal,oceanique,equatorial 

2110 DATA diurne,nocturne,crepusculaire,solstice,equinoxe 


PRINT CHR#(211) 
PRINT CHR#(211) : GOTO 1230 
PRINT CHR#(225) 


PRINT CHR#(202) 


PRINT CHR$#(194); 


PRINT CHR#(195) 


CHA ET TYRIERS 


MATHEMATIQUES 


tructions mathématiques assez simples mais qui, 


L'AMSTRAD est doté d'un certain 


nombre d'ins- 
combinées entre 


elles, permettent de résoudre des problèmes complexes. Nous vous 
proposons ici, à titre d'exemple, trois programmes qui utilisent 
ces instructions. 


1) 


Manipuler des degrès 


Vous connaissez sans doute 


le problème 
ls 
11 


valeur de l' 


illustré par la figure 


s'agit, connaissant la Y 
angle à et la longueur 


OP (Coordonnées polaires), de cal- 


culer x et y 


(coordonnées rectanqgu- 


laires). x et y sont donnés par la 


formule : 
x = OP 
Y = OP 
De 
coordonnées 


* COS (à) 
* SIN (à) 
même, connaissant x et y, on 


polaires OP et à avec la formule 


OP = \ x2 : y Z 


a 


à = ta 


n\y/x 


Le programme qui suit, 


peut 


calculer les 


outre le calcul des 


valeurs, fait une présentation du problème à l'écran. 


Liste des variables 


c = choix du type de calcul 
ang = angle à 
dis - distance OP 

x = abcisse du point A 

y = ordonnée du point A 
COMMENTAIRES 


Examinons ce programme, il comporte un cer- 
tain nombre d'instructions intéressantes. 


— À la ligne 60, on met l'ordinateur en mode 
degrès avec l'instruction DEG. L'AMSTRAD travaille normalement 
en radians. Il faut donc lui préciser que l'on veut utiliser des 
degrès. 


Cela est fait une fois pour toute en début de 
programme avec l'instruction DEG. 


Pour revenir au calcul en radians, il suffira 


d'employer l'instruction RAD à l'endroit chosi 

- Les lignes 120 à 260 reproduisent à l'écran 
le dessin de la figure 1. Si elles ne sont pas vraiment indis- 
pensables, elles améliorent considérablement la présentation du 
problème. vous remarquerez que la ligne 240 fait ‘monter’ le 
dessin à l'écran. Cela vous donnera peut être des idées 

— lignes 330 à 380 : choix de l'option de 
calcul. 


— ligne 390 : l'instruction ON C GOTO (ou ON 
C GOSUB). 

I1 s'agit d'une instruction particulièrement 
puissante puisqu'elle permet, en fonction de la valeur dec, 
d'accéder directement à une partie du programme. 


Dans notre cas, si C est égal à 1, le pro- 
gramme se branchera à la ligne 400 (conversion de coordonnées 
polaires en coordonnées rectangulaires). Pour C égal à 2, c'est 


la ligne 600 qui sera exécutée. 


L'instruction ON C GOSUB, s'utilise s'emploie 
de façon identique. 


10 

20 

30 

50 

60 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
475 
480 
485 
490 
600 
610 
620 
630 
640 
650 
660 
675 
680 
685 
700 
100 
101 
102 
103 


104 
105 
106 
107 





REM':=-===---==ssmmnmemmmsemesnssnn=memmnesessnenssensneness 
REM transformation de coordonnees polaire en rectangulaire et 
CR 
BORDER O : INK 0,0 





CLS : DEG 

REM === mmmmmmmmmmmmmmmmmmnmmmmnmmsmemmnnns— 
REM trace du dessin 

REM =----mmmmmmmmmmmmmmmmmmmmmmm mm 
ORIGIN 100,100 

DRAW 0,200 

ORIGIN 100,100 

DRAW 200,0 

ORIGIN 100,100 

DRAW 200,200 

ORIGIN 180,100 

DRAW 0,80 

LOCATE 10,18 : PRINT CHR$#(181); 

LOCATE 10,20 : PRINT "x"; 

LOCATE 13,18 : PRINT "y"3} 

FOR n=1 TO 12 : PRINT : NEXT n 

LOCATE 10,9 : PRINT "A"; 

LOCATE 5,15 : PRINT "O"; 

LOCATE 1,18 : PRINT "Vous connaissez l’angle “;CHR#(181) 
PRINT "et la distance OA (1)" : PRINT 

PRINT “Ou vous connaissez les longueurs" 

PRINT “rectangulaires x et y (2)" : PRINT 

INPUT “votre choix (1 ou 2)"jc 

c=INT(C):IF c<i OR c>2 THEN 350 

ON c GOTO 400,600 

REM. =-<==2= === ess ssenmmssemmmesmenrénsoneemnsss see 
REM conversion coordonnees polaires a rectangulaire 

REM -------mmmmmn mm 
GOSUB 1000 

LOCATE 1,18 

INPUT “entrez l'angle en degres “;jang 

PRINT : INPUT "quelle est la distance OA "jdis 

x = dis*COS(ang) : y=dis*SIN(ang) 

ZONE 3 

PRINT:PRINT "x = "ÿ:PRINT USING "hHH.H#h";Xx 

PRINT "y = "ÿ:PRINT USING "H#H#.HH";5Y 

GOTO 700 

REM: === ses season ssssemessnsenssasssses 
REM conversion coordonnees rectangulaires a polaire 

REM === senséssssnséemesenssete 
GOSUB 1000 

LOCATE 1,18 

INPUT “entrez les coordonnes x,y":5x,y 

r=SQR(x"2+y"2) : ang=ATN(y/x) 

ZONE 3 

PRINT : PRINT "OA = "jÿ:PRINT USING "#h#.HhH"ir 

PRINT "“ ";ÿ;CHR$S(181);" = "ÿ:PRINT USING "H#h#.H#h";angi: PRINT * 
a$=INKEYS:1IF a$="" THEN 700 ELSE 60 
O' REM -=- 25-5555 Tee SSSR ess seems anses assensse 
O0 REM effacement texte 
O''REM ===" semese ressens ssememenssesreiss 
O LOCATE 1,18 


O FOR n=1 TO 7 

O0 PRINT STRING$(33,32) 
O NEXT 

O RETURN 


l'inverse 


deg" 


= 


- les lignes 400 à 700 sont l'application 
directe des formules de calcul avec : 


SIN (à) donne le sinus de l'angle à 

COS (à) donne le cosinus de l'angle à 

ATN (x) permet de connaître la valeur de l'angle à dont la 
tangente est x 

SQR (x) fournit la racine carée de x ou d'une expression 


La flèche vers le haut permet de calculer les puis- 
sance d'une valeur ou d'une expression. 


Par ex : x À 2 donnera x * x 
3 A2 “ 9 
x 43 F X * X * x 
(a + b)Â 2 " aÀ + bk + 2ab 
REMARQUES 


- L'instruction ZONE (ligne 475) 


Sur presque tous les ordinateurs existe une 
tabulation automatique que l'on obtient avec PRINT et la vir- 
gule. Ex : PRINT "1","2" . Le chiffre 1 sera imprimé en début de 
ligne et la chiffre 2 à la 14ème position par rapport au début 
de ligne (ou à la colonne no 14). 


l'instruction ZONE permet de faire varier 
cette position. 


EX : ZONE 8 : PRINT "1","2" 


Le 1 sera affiché en début de ligne, et le 2 
dans la colonne no 9 de la même ligne 


- L'instruction STRINGS (X,Y) 


Elle affiche X fois à l'écran le caractère 
dont le code ASCII est Y. On peut écrire 


PRINT STRINGS (10,65); 
ou PRINT STRINGS (10,"A"); 


Dans les deux cas, une série de 10 lettres A 
sera affichée à l'écran. 


Dans notre programme, à la ligne 1050, nous 
employons cette instruction pour effacer du texte à l'écran, 
sans effacer tout l'écran, 32 étant le code ASCII d'un espace. 


Résoudre des équations 


L'équation du second degrès, universellement 
connue, se présente ainsi : 


Y = axd + bx + c 


Le calcul d'un discriminant (dis = b -  4ac) 
permet de déterminer dans tous les cas le type de l'équation 
(premier degrès, pas de solution, etc...) 

L'existence d'une méthode unique pour résou- 
dre tous les cas possibles, facilite la recherche d'une solution 
sur ordinateur. 


Le programme ne présente aucune difficulté et 


vous retrouverez aisemment toutes les formules de calcul, au cas 
où vous les auriez oubliées. 


Liste des variables 


a=a 

b=b 

c=c 

X1 = 1ère racine 

X2 = 2ème racine 

w (z) = tableau des différentes valeurs de x 
y (z) = tableau des différentes valeurs de y 


A titre d'amélioration de ce programme, vous pouvez 
essayer d'obtenir une représentation graphique de la fonction à l'écran. 
C'est tout à fait réalisable sur 1'AMSTRAD. 


Il conviendra de définir une échelle en fonction 
des différentes valeurs de x et de y, de dessiner un axe, et de dessiner 
la courbe point par point avec la fonction PILOT. 


Pour vous aider dans cette tâche , vous pouvez vous 
reporter au programme HISTOGRAMME qui comporte un calcul d'échelle, ainsi 
qu'aux autres programmes graphiques du chapitre suivant. 


Vous pouvez également utiliser l'instruction DEF FN, 
qui est une définition de fonction, en début de programme. Son utilisation 
est assez simple et fort pratique. Dans notre cas cela se traduirait par 


DEF EN y=a*x2+b*x+e 


Ce qui nous permet d'obtenir la valeur de y en 
fonction de x à tout moment : 


INPUT X : PRINT EN y 


Vous pouvez donc essayer de modifier ce programme 
en y incluant cette instruction, et vous verrez que c'est très pratique. 


Si aucune touche n'est frappée, le programme 
passe à l'instruction suivante et la variable a$ est alors vide. 


Combinée avec l'instruction IF, en testant le 
contenu de la variable AS, cette instruction nous permet de 
faire des test pour savoir si une touche à été appuyée, ou pour 
faire une attente avec appui sur une touche, avant de poursuivre 
l'éxécution d'un programme (c'est le cas de notre programme). 


Très pratique pour les jeux. 


LO /REM: SES SES Er SSSR SSSR SS SES Se sn snssseneessse ss se is 
20 REM RESOLUTION D'’EQUATION DU SECOND DEGRE 

30 REM === ns ses een en es ss re ere ennse eee 
40 DIM w(20),y(20) 

50 CLS : PRINT "Resolution d’equation du second degres"* 

60 PRINT “du type a(x#x)+bx+c=y" 

70 REM ----= sense mme nn me nee nee emmener 
80 REM tests et calcul de racines 

90 REM --------mmmmmmmmmmmmmm mm 
100 PRINT : PRINT "entrez a,b,c" 

110 INPUT “en les separant par une virgule "ja,b,c 


BQUATIONS 


IF a=0 THEN GOSUB 1000 : GOTO 510 
dis=b"2-4#atc 


PRINT 


PRINT "discriminant = "jdis 


IF dis 


O THEN PRINT : PRINT "Racine double " : PRINT 


IF dis<O THEN GOSUB 1100 : GOTO 510 


PRINT : 


PRINT "Racines de l’equation 


xi=(-b+SGR(dis))/(2%#a) 
x2=(-b-SG@R(dis))/(2%#a) 
PRINT "X1 = ";xi 


PRINT *X2 
REM -------" "0 


= ";x2 


REM calcul de y en fonction de x 


REM'=-=---= Sete Sn ns Ses nes sneses 
“nombre de calcul de y(0 a 20) 


PRINT : 


PRINT 


n=INT(N):IF n>20 OR n<O THEN 260 
1F n=0 THEN 530 


FOR 


z=i TO n 


PRINT "entrez x";5z;:INPUT w(z) 
y(z)=atw(z)"2+bXw(z)+c 


NEXT z 


REM = 


REM affichage des divers elements 


REM 


CLS : PRINT 

PRINT "equation 5 "jai" (x#x)"; 
IF b=0 THEN 410 

1F b<O THEN PRINT b;j"x";:GOTO 410 
PRINT "+"jÿbj"x"; 

IF c=0 THEN 440 

IF c<O THEN PRINT c;:GOTO 440 
PRINT "+"jc; 

PRINT “= y" : PRINT 

PRINT "“discriminant : "“jÿdis:PRINT 


PRINT "racines 5 X1 = "jxi 

PRINT * X2 = "jÿx2 : PRINT 

FOR z=1 TO n 
PRINT "x"$z;" = "{ÿw(z);" y"32z;" = 

NEXT z 

a$=INKEYS: IF a$="" THEN 510 

GOTO 50 
END 
REM 

REM ------- 
1F b=0 THEN 1030 

PRINT : PRINT "equation du ier degre 

PRINT : PRINT "indetermine " 

RETURN 

REM mme 
PRINT : PRINT "pas de racine reelle”" 

RETURN 


PRINT 


“5y(2z) 


“3: INPUT n 


STATISTIQUES 


Ce programme de statistique utilise des 
instructions mathématiques déjà employées. Il affiche à l'écran, 
après chaque entrée de donnée, le nombre de données totales, la 
moyenne arithmétique, la moyenne des différences d'essais, la 
moyenne des différences, la somme des valeurs et la somme des 
carrés des valeurs. Vous trouverez dans le programme les for- 
mules qui permettent d'obtenir ces données. 


Toutes ces valeurs sont présentées à l'écran 
avec la technique des fenêtres d'écran. 


100 
110 


130 
140 


160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 


310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 


440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
S60 
S70 
580 
590 
600 
610 
620 
630 
640 
650 


STATISTIQUES 


REM ------- "2222" 
REM STATISTIQUES 

REM -------""" "2" 
WINDOW 1,40,1,25 


som=0 : do=0 : car=0 : ari=0 : ess=0 : dif=0 

REM ------------- 
REM Affichage du tableau 

REM --------------— 
CLS : x=1 : y=1 : 1=17 : e=154 

FOR n=1i TO 2 

LOCATE x,y : PRINT CHR$#(150);:GOSUB 1000: PRINT CHR#(156) ; 
x=21 

NEXT n 

FOR x=1 TO 21 STEP 20 


FOR y=7 TO 13 STEP 6 

LOCATE x,y : PRINT CHR$#(151); 

GOSUB 1000 : PRINT CHR$#(157); 

NEXT y 

NEXT x 

1=37 

FOR y=19 TO 25 STEP 6 

LOCATE 1,y : PRINT CHR$#(151);: GOSUB 1000:PRINT CHR$#(157); 
NEXT y 


LOCATE 19,19 : PRINT CHR$(155); 
LOCATE 21,19 : PRINT CHRS(155); 
1=1 : e=149 

FOR x=1 TO 39 STEP 38 

FOR y=2 TO 24 

LOCATE x,y : GOSUB 1000 

NEXT y 

NEXT x 

FOR x=19 TO 21 STEP 2 


FOR y=2 TO 18 

LOCATE x,y : GOSUB 1000 

NEXT y:NEXT x 

REM --------------- = 
REM definition des fenetres 

REM ---------------—- 
WINDOW #0O,2,18,2,6 : WINDOW #1,22,38,2,6 

WINDOW #2,2,18,8,12 : WINDOW #3,22,38,8,12 

WINDOW #4,2,18,14,18 : WINDOW #5,22,38,14,18 

WINDOW #6,2,38,20,24 

PRINT #O, "nombre de donnees" 

PRINT #1," - moy. arith. -"* 


PRINT #2," - moyenne des-” 

PRINT #2,"differ. d'essais" 

PRINT #3," - moyenne des-":PRINT #3," differences" 
PRINT #4,"somme des valeurs" 

PRINT #5," somme des carres'";j:PRINT #5," des valeurs" 
PRINT #6,TAB(13)"- donnees -" 


PRINT #6: PRINT #6, “combien de valeurs a entrer (1 a 200)":INPUT 


IF n<i OR n>200 THEN 590 

LOCATE #6,1,3 : PRINT #6,STRING#S(38,32); 

LOCATE #h6,1,5 : PRINT #6," G 

REMLES SSSR SRE SE SES S SRE SES SSSR SR SE Se Semen es 
REM saisie des donnees 


#6,n 


460 

670 FOR m=1 IU n 

680 LOCATE #6,1,3 :PFRINT #6,STRINGH(40,32); 

690 LOCATE #6,1,3 : FRINT #é6,"donnee no ";ÿm;:INPUT #k6,do 

700 GOSUR 1200 

710 NEXT m 

720 GCOTQ 720 

1900 REM --------- "2" 
1010 REM affichage des lignes du tableau 

1020 REM -----------—- sm = 
1039 FOR m=1 TO 1 : PRINT CHR$(e);: NEXT m 

1040 RETURN 

1100 REM: ==<===ss-s-msnsessss-esemese ess Press SSs sense ss 
1110 REM position curseur et effacement 

1120 REM --------------------- mms -mmmmmmsmsesmmsmss 
1130 LOCATE Hu,2,4 : PRINT #u,STRING#$(14,32);:LOCATE #Hw,2,4 
1140 RETURN 


1200 REM -------- 
1210 REM calcul et affichage des resultats 

1220 REM -------------- 
1250 w=0 : GOSUB 1100 : PRINT hO,m * 

1240 w=4 : GOSUB 1100 : som = somtdo : PRINT #4,som 

1250 w=S5 : GOSUB 1100 : car = car+tdo”"2 : PRINT #KS,car 

{260 w=i : GOSUB 1100 : ari = som/m : PRINT #i,ari 


1270 w=2:GOSUB 1100:ess=(car-(som”"2)/m)/m : ess=SGOR(ess) :PRINT 
#2,ess 


1260 IF m=1 THEN 1310 
1290 w=3 : GOSUB 1100 : dif=(car-(som”"2)/m)/m-1 


1300 IF dif>=0 THEN dif=SGR(dif):PRINT #3,dif 
1310 RETURN 


Liste des variables : 


do = données 

som = somme des données 

dif = moyenne des différences d'essais 
ari = moyenne arithmétique 

car = somme des carrés des valeurs 

w = canal utilisé 

REMARQUES 


La commande WINDOW 


Vous pouvez constater que les lignes 160 à 


440 dessinent 7 fenêtres à l'écran. Mais c'est en fait la com- 
mande WINDOW qui crée réellement ces fenêtres pour l'ordinateur. 


L'AMSTRAD vous permet ainsi de créer 8 fenê- 
tre d'écran numérotés respectivement de 0 à 7. 


Pour définir une fenêtre, il convient d'indi- 
quer le numéro de canal employé (0 à 7), les limites gauche et 
droite, ainsi que les limites supérieures et inférieures. 


Ex : MODE 1 : WINDOW £1,20,40,13,25 


| Après avoir fait un CLS, essayez d'écrire une 
ligne assez longue, et vous remarquerez que vous ne pouvez plus 
écrire sur la partie droite de votre écran, la commande WINDOW, 


l'ayant "coupé" en deux. 


: | Pour pouvoir écrire dans cette partie 
d'écran, il faut employer l'instruction PRINT €. 


: Elle va vous autoriser l'écriture dans les 
fenêtres définies. 


Dans l'exemple nbrécédent vous avez inscrit 
WINDOW Ps 1, suivi de coordonnés. Vous avez ainsi attribué le 
canal 1 à cette fenêtre. Pour y accéder il faudra préciser ce 
numéro de canal. 


Essayez maintenant PRINT #1, “fenêtre du canal 1". 


se Vous verrez le message s'afficher à la droite 
l'écran. 


De la même façon vous pourrez utiliser les 


instructions : 


LOCATE #1, X,Y pour positionner le curseur à la position x, y 
de la fenêtre (0,0 étant la position supérieure gauche de celle- 


CL} 


INPUT #1, x affiche le point d'interrogation dans la fenêtre du 
canal 1, et attend l'entrée d'une donnée 

LIST#1 liste le programme en mémoire dans la fenêtre du 
canal 1. 


Vous l'avez sans doute compris, toutes les 
instructions d'affichage s'utilisent avec la même syntaxe, après 
la virquie suivant le numéro du canal. 


Huit: fenêtres d'affichages peuvent être ainsi 
définies, comme vous le montrent d'ailleurs les lignes 480 à630. 


ATTENTION n'utilisez pas comme numéro de 
canal une valeur supérieure à Jr le canal 9 étant destiné à la 
gestion du magnétophone et le 8 à celle de l'imprimante, mais 
nous aurons l'occasion d'en reparler. 


CHA ET TRIER 


LE GRAPHISME 


Nous vous proposons deux programmes de gra- 
phisme qui, bien qu'ils n'utilisent pas toutes les fonctions 
graphiques de l'AMSTRAD, doivent vous donner par la suite les 
éléments nécessaires pour tirer le meilleur parti de votre 
ordinateur. 


1) l'histogramme 


Un histogramme est une représentation gra- 
phique d'un ensemble de données. Pour le représenter, nous 
n'utilisons pas la haute résolution mais des pavés de couleurs 
mis en oeuvre par la conmande CHRS. 


Le problème d'une représentation par histo- 
gramme est que le programme doit être capable d'accepter des 
suites de valeurs fort diverses. Par exemple vous entrerez 15 
valeurs inférieures à 0, puis dans un autre cas 15 valeurs 
supérieures à 100. Votre programme doit être capable de traiter 
ces deux types de données pour qu'il présente un intérêt 
quelconque. 


Liste des variables 


n - nombre de données 

da (d) - tableau des données 

a = plus grand élément 

hm = hauteur maximum 

ec = échelle 

h (b) hauteur attribuée à chaque donnée 
f - couleur des pavées 

b position sur l'axe des x des pavés 
C position sur l'axe des y des pavés 
REMARQUES : 


- L'instruction MODE 


Vous savez sans doute que cette commande vous 
permet de choisir la taille de votre écran avec 


MODE 0  : 20 caractères par lignes 
MODE 1 : 40 caractères par lignes 
MODE 2  : 80 caractères par lignes et un affichage haute réso- 


lution de 640 x 400 points. 


Sur ces trois modes, vous disposez à chaque 
fois de 25 liqnes. 


Dans notre programme on utilise le mode 0, 
qui nous autorise 20 colonnes de 25 lignes. Nous fixons donc à 
20, la hauteur maximum de l'histogramme afin de ne pas envahir 
tout l'écran (liqne 260). 


Après avoir déterminé le plus grand élément 


parmi les valeurs choisies (lignes 205 à 230), on calcule l'é- 
chelle (ligne 260). 


Cette échelle permet de calculer la grandeur 
à l'écran de chaque valeur, afin qu'il n'y ait pas de dépas- 
sement d'écran où de valeur trop petite (ligne 340 à 360). 


vous noterez à la ligne 350, la présence de 
l'instruction INT. En effet on ne peut afficher des fractions de 
pavés CHRS. 


Pour terminer sur ce programme, les lignes 
510 à 570 déterminent la couleur de chaque colonne de l'his- 
togramme. 


LISTOSNAMMNS 


LOTREM : === === == eee en Ses Ses ensssesses 
20 REM HISTOGRAMME 

JONREM === esse nées pese ess messes sesss 
40 MODE 1 : BORDER O:INK 0,0 : CLS 

50 DIM d(15),h(15) 

JOOMREM SRE Se sers es es ss ere Es sen ee esse 
110 REM acquisition des donnes 

120 REM ----------smmmmsmsmmsmnmsmmmsmmmmmes-msmsz=—s 
130 PRINT : INPUT "nombre de donnees (1 a 15)";in 

140 n=INT(n):1IF n<i OR n>15 THEN 40 

150 PRINT 

160 FOR b=1 TO n 

170 PRINT “donnee no ";jb;:INPUT di(b) 


180 NEXT b 

190 REM ----------- 
200 REM recherche du plus grand element 

205 a=0 


210 FOR b=1 TO n 

220 IF d(b)>a THEN a=d(b) 

230 NEXT b 

240 REM ------------ nn 
250 REM choix de l’echelle 

260 hm=20 : ec=hm/a 

300 REM --------—mmmmrrsmmmmmmmmmm mm mm mm — 
310 REM calcul de la hauteur de chaque element 

320 REM -------------------------— mm 
340 FOR b=1 TO n 

350 h(b)=INT(ecXxd(b)) 


360 NEXT b 

400 REM ------------ "1 
410 REM dessin de l’histogramme 

420 REM --------- "2 


430 CLS : MODE O : LOCATE 2,3 

440 FOR x=3 TO 24 

450 LOCATE 2,x : PRINT CHR#&(157); 
460 NEXT x 

470 LOCATE 2,24 : PRINT CHR#(147); 
480 FOR x=3 TO 19 

490 LOCATE x,24 : PRINT CHR$(158) ; 
500 NEXT x 

S10 FOR b=1 TO n 

520 FOR c=1 TO h({(b) 

530 LOCATE b+2,24-c 

S40 f=b : IF f>10 THEN f=#-10 

550 IF f=5 THEN f=1 

Sé0 PEN f : PRINT CHR#(143); 

570 NEXT € : NEXT b 

580 GOTO 580 


2) Une table à dessin 


Le programme qui suit permet de dessiner à 
l'écran point par point. Avec les quatre fléches vous tracez 
dans les directions gauche, droite, haut et bas, et avec les 
touches a,s,z,x, vous dirigez le curseur selon les quatre dia- 
gonales. 


Le mode haute résolution est utilisé, et les 
lignes coordonnées du point sont affichées en permanence dans 
une fenêtre préalablement définie. 


Deux sous programmes permettent de tracer des 
lignes et des cercles. 


l'ABLE 4 DE 





NI 


LOMREM STE SSSR SEE SES SE ST RSS SSSe ST ESS eee SSSSS eSe see 

20 REMTABLE A DESSIN 

GONREM EEE = ES SSSR SSSR See mn SLE STRESS Se 

100 CLS: MODE 1 : INK O,0 

102 PRINT "Utilisez les fleches pour les direction":PRINT "droite,gauche,haut et 
bas": PRINT 

105 PRINT "les touches A,S,Z,X pour les diagonales":PRINT 

107 PRINT "et D pour effacer,C pour cercle,L pour ligne et F pour finir'":PRINT 
110 PRINT : PRINT "origine du dessin X,Y" 

120 PRINT "avec x>=0 et x<=640" 

130 PRINT "& y>=80 et y<=400" 

140 INPUT x,y 

150 IF x>640 OR x<O OR y>400 OR y<80 THEN 100 

160 CLS : MODE 2 : z=1 

170 WINDOW #1,1,80,21,25 

172 ORIGIN 0,0 

175 PLOT x,y 

230 a$=INKEYS:1IF a$="" THEN 230 

240 a=ASC(a$) 

250 IF a=241 THEN GOSUB 1330 : GOTO 390 

260 IF a=242 THEN GOSUB 1430 : GOTO 390 

270 IF a=243 THEN GOSUB 1530 : GOTO 390 

280 IF a=240 THEN GOSUB 1630 : GOTO 390 

290 IF a=122 OR a=90 THEN GOSUB 1730 : GOTO 390 

300 IF a=88 OR a=120 THEN GOSUB 1830 : GOTO 390 

310 IF a=97 OR a=65 THEN GOSUB 1930 : GOTO 390 

320 IF a=83 OR a=115 THEN GOSUB 2030 : GOTO 390 

350 IF a=68 OR a=100 THEN GOSUB 1000 : GOTO 230 

360 IF a=67 OR a=99 THEN GOSUB 1100 : GOTO 390 

370 IF a=76 OR a=108 THEN GOSUB 1200 : GOTO 390 

380 IF a=70 AND a=102 THEN 2270 

390 LOCATE #1,60,1:PRINT #1,STRING#(19,32);:LOCATE #1,60,1:PRINT H1,"X = " 
Le à 

410 GOTO 230 

1000 REM -===--------sessemmmmmmmmenm=me eme mmm mm 
1010 REM effacement 

1020 REM -------------mmmmmmmmmmmmmmmmmmmmmmmmmmm mm 
1030 IF z=1 THEN z=0 ELSE z=1 

1040 IF z=0 THEN LOCATE #1,1,1:PRINT #1,"effacement"; 

1050 IF z=1 THEN LOCATE Hh1,1,1:PRINT #H1,STRING#(11,32); 

1060 RETURN 

1100 REM === mm mm mm mm mm 
1110 REM trace du cercle 

1120 REM<-S=Se-- sms esse ss ne rss esse == sense se 
1130 LOCATE #1,2,2 : PRINT #1,'"origine du cercle" 

1140 INPUT #1,"avec O0O<(x<640 et 80<y<400";t,u 

1150 IF t>639 OR t<1i OR u>399 OR u<8i THEN 1130 

1160 LOCATE #1,2,4 : INPUT #1,"rayon du cercle"ir 

1170 IF t+r>640 OR t-r<0O OR utr>400 OR u-r<80 THEN 1160 

1180 n=r*xS : b=6.28/n 

1185 FOR j=1 TO n:m=t+rX#COS(b#;j):o=u-rXSIN(bX;) 

1190 PLOT m,0,z 

1195 NEXT j : GOSUB 2200 : RETURN 

1200-REM 5 Sr SRE SSSR SSSR SSSR SSSR S ee SssS Ses rssesss 
1210 REM trace de la ligne 

1220: :REM =--"=522-S-sSssrsssssserse PTRRÉ TRE SSSR STE RES SEE 


x 


1230 LOCATE #1,2,2 : PRINT #1,"coordonnees d'’arrivee de la ligne" 
1240 INPUT #1,"avec O=<x=<640 et 80=<y=<400";x, y 

1250 IF x>640 OR x<O OR y>400 OR y<80 THEN 1230 

1260 DRAW x, y 

1270 GOSUB 2200 

1280 RETURN 

1300 REM ------------ 
1310 REM en bas 

1320 REM ---------------222222222 nn 
1330 IF ÿy=80 THEN 1350 

1340 y=y-1 : PLOT x,y,z : PLOT x+1,y,z 

1350 RETURN 

1400 REM --------------------------- 
1410 REM a gauche 

1420 REM ------------- 7 
1430 IF x=0 THEN 1450 

1440 x=x-1 : GOSUB 2130 

1450 RETURN 

1500 REM -------- 
1510 REM a droite 

1520 REM -------------------------- mn 
1530 IF x=640 THEN 1550 

1340 x=x+i : GOSUB 2130 

1550 RETURN 

1600 REM ---------------------- 
1610 REM en haut 

1620 REM ------------mmnm nm 
1630 IF y=400 THEN 1650 

1640 y=y+1 : PLOT x,y,z : PLOT x+1,y,z 

1650 RETURN 

1700 REM ---------------- 
1710 REM en bas a gauche 

1720 REM ------------------- 
1730 IF x=0 OR y=80 THEN 1750 

1740 x=x-1 : y=y-1 : GOSUB 2130 

1750 RETURN 

1800 REM --------------- 
1810 REM en bas a droite 

1820 REM ------------------mmmmmmmmmmmmmmmm 
1830 IF x=640 OR y=80 THEN 1850 

1840 x=x+i : y=y-1 : GOSUB 2130 

1850 RETURN 

1900 REM ------------------mnmmmmmmmmmm mm 
1910 REM en haut a gauche 

1920 REM ------------------ 
1930 IF x=0 OR y=400 THEN 1950 

1940 x=x-1 : y=y+1 : GOSUB 2130 

1950 RETURN 

2000 REM -----------"mmmm mm mm 
2010 REM en haut a droite 

2020 REM ----------------------—-——— 
2030 IF x=640 OR y=400 THEN 2050 

2040 x=x+1i : y=y+1 : GOSUB 2130 

2050 RETURN 

2100 REM --------------- mm 
2110 REM trace du point 

2120 REM --------------------- 
2130 PLOT x,y,2z : RETURN 

2200 REM --------- = 
2210 REM effacement du texte 


5500 (IREM: === elec ce-meboscmsessodeses sin T2 
2230 FOR j=2 TO 5 

2240 LOCATE #1,1,j : PRINT #1,STRINGS (40,32) ; 

2250 NEXT j 

2260 RETURN 

2270 END 


COMMENTARES : 


- L'instruction ASC 


Cette commande permet de connaître le code 
ASCII d'un caractère. À la ligne 240, cette instruction conver- 
tit la variable àa$ en sa valeur ASCII. En fonction de cette 
valeur le programme ira se brancher à la partie concernée, 
avec 


240 à 243 flèches 
88 et 120, 
65 et 97 
90 et 122 qui sont les 8 codes ASCII majuscules 
83 et 115 et minuscules de a,s,x,2Z 
67 et 99 codes ASCII de c pour tracer un cercle 
76 et 108 codes ASCII de L pour tracer une ligne 
70 et 102 codes ASCII de F pour arrêter. 
Contrairement aux nombreuses publicités 


faites sur l'AMSTRAD en FRANCE (et malheureusement aussi sur 
certains ouvrages récents), votre ordinateur possède, en mode 2, 
une résolution de 640 X 400 points. Ce qui est nettement mieux 
que les 640 X 200 annoncés. 


Le point de coordonnées 0,0 se situe en bas à 
gauche de votre écran et le point de coordonnées 640,400 se 


= 


situe en haut à droite de cet écran. 

- L'instruction ORIGIN 

Cette instruction permet de fixer l'origine à 
l'écran. À la ligne 172 l'origine est fixée au bord inférieur 
gauche de l'écran. C'est-à-dire au point de coordonnée 0,0. 

Attention si vous fixez par exemple l'origine 
au point 320,200 (au milieu de l'écran) pour dessiner un point a 


cet endroit, vous devrez écrire PLOT 0,0 et non PLOT 320,200. 


- L'instruction PLOT 


{y 


Cette commande permet de dessiner un point 
l'écran. À la ligne 2130, vous trouverez : 


PLOT x,y,Z 


ou x et y sont les coordonnées du point 
dessiner et z, la couleur du point. Examinez les lignes 1000 


Qy Qy 


1060 pour voir comment on se sert, avec z, de l'instruction PLOT 
pour effacer un tracé. 


—- L'instruction DRAW 
Cette instruction trace des liqnes à l'écran, à 
partir de la position du curseur et jusqu'à la position précisée 
dans la commande DRAW. 


Exemple : ORIGIN 0,0 
DRAW 640,400 trace une diagonale 
sur l'écran (voir les lignes 1200 à 1270). 


La combinaison de ces instructions donne des 
possibilités illimitées de graphisme. regardez par exemple les 
lignes 1100 à 1195, qui définissent une véritable fonction 
CERCLE où vous aurez simplement à fixer le centre du cercle et 


le rayon. 


MEUUES Ej 





LA GESTION D E FICHIERS 


1) Les notions de données et de fichier 


L'intérêt d'un ordinateur réside principa- 
lement dans sa possibilité de manipuler un grand nombre de 
données. 


On appelle donnée, toute valeur qui n'est pas 
déterminée dans le programme avant son exécution (ou dans le 
listing) 


Ex : 10 À = 10 
20 B$ = "janvier" 
30 INPUT AS 
40 INPUT X 


Dans cet exemple, AS et X sont des données 
fixées par l'utilisateur du programme. 

L'ensemble de ces données va constituer un 
fichier. 


Pour que votre ordinateur soit d'une quel- 
conque utilité dans ce domaine, il doit être capable de conser- 
ver l'ensemble de ces données sur un support (K7, disquette ou 
autre), et de pouvoir ensuite les relire. 

Si ce n'est pas le cas, vous hésiterez cer- 
tainement à créer des fichiers importants, si ceux-ci sont 
perdus lorsque vous éteignez votre appareil. 


L'AMSTRAD peut conserver l'ensemble de ces 
données avec des instructions simples, mais organisées de façon 
similaire à celles de systèmes plus puissants. C'est une très 
bonne introduction en la matière, surtout si vous faites par la 
suite, comme nous vous le souhaitons, l'acquisition d'un lecteur 


de disquette. 


2) La gestion de fichiers 


Pour illustrer notre propos, prenons un 
exemple. Vous désirez inscrire sur votre agenda le nom, le 
prénom et le numéro de téléphone d'une nouvelle relation. 


Je suppose que vous avez compris que l'AGENDA 
sera votre fichier, et les noms, prenoms et numéros de téléphone 
vos données. 


Après avoir pris votre stylo, vous allez 
1 ouvrir votre AGENDA 


2 écrire les nom, prenom et numéro de téléphone 
3 refermer votre AGENDA 


Sur l'AMSTRAD ces trois opérations se tradui- 
ront par 
100 OPENOUT "AGENDA" (ouvrir le fichier AGENDA) 
110 WRITE#9, nom$,prénom$,téléph$s (écrire les données 


sur la K7) 
120 CLOSEOUT 


A la ligne 110, #9 précise le canal sur 
lequel on écrit les données. En l'occurence, 9 est le numéro du 
canal réservé au maqnétophone. 


vous souhaitez maintenant appeler votre ami 
(e), vous allez 


1 ouvrir votre AGENDA 
2 lire les références (nom, prenom et téléphone) 
3 refermer votre AGENDA 


Ce qui se traduit en BASIC AMSTRAD par : 


200 OPENIN "AGENDA" (ouvrir le fichier AGENDA) 

210 INPUT 9, nom$S ,prénom$,téléph$ (lire les données 
sur la K7) 

220 CLOSEIN 


INPUT XK9, transfère les données présente sur 
la K7, dans la mémoire de l'ordinateur. 


vous aurez sans doute compris que : 


— OPENOUT et CLOSEOUT s'emploient lorsque 
l'on écrit sur la K7, 

— OPENIN et CLOSEIN s'utilisent pour lire les 
données sur la K7. 


Si vous ne précisez pas le nom du fichier à 
la ligne 200 (OPENIN ""), l'AMSTRAD chargera en mémoire le 
premier fichier qu'il rencontrera pourvu qu'il soit du même 
type. 

| En effet, il est important de lire le MEME 
TYPE et le MEME NOMBRE de données que celles qui ont été enre- 
gistrées sur la K7. 


Enfin, on peut, en mettant un point d'excla- 
mation juste avant le nom du fichier dans les instructions 
OPENOUT et OPENIN, supprimer les messages de manipulations du 
magnétophone. 


Ex : OPENOUT "“! AGENDA" 
3 ) Une application directe 


Reprenons l'exemple de notre AGENDA 


Avec les lignes 100 à 120, nous disposons 
d'un fichier ne comportant qu'une seule fiche, comportant elle- 


même trois données, ce qui est naturellement tout à fait insu- 
fisant. 


Nous allons d'abord augmenter le nombre de 
données avec par exemple. 


no$ pour nom 


pr$ 2 prénom 

nus U numéro de la rue 
rus ! nom de la rue 
vis di localité 

tes ” téléphone 

pfs Ÿ profession 


Notre AGENDA, avec ces nouveaux éléments, 
comportent des fiches bien documentées dignes d'un véritable 
fichier client. 


La transformation en BASIC ne pose aucun 
problème puisqu'il suffit de modifier simplement la ligne 110 : 


110 WRITE 49, noS$,prS,nuS,rus,vis,tes,pfs 
Et pour relire ces données, la ligne 210 : 


210 INPUTAK, no$,pr$,nus,rus,vis,tes,pfs 


Notre fichier reste malgrè tout insufisant, 
et c'est le moins que l'on puisse dire, car il ne comporte 
qu'une seule fiche. 

Pour y remédier, nous allons utiliser l'ins- 
truction DIM et une boucle FOR NEXT. 


Ce qui donne pour 50 fiches 
10 DIM no$(50),pr$(50),nu$ (50) ,ru$(50),vi$(50),te$ (50) ,p£fS$S(50) 


Maintenant que nous avons crée un fichier de 
50 fiches, il ne nous reste plus qu'à les enregistrer (évidement 
après les avoir remplies) 


100 OPENOUT "AGENDA" 

105 FOR n = 1 TO 50 

110 WRITE 49, no$(n),pr$(n) ,nu$ (n) ,ru$ (n) ,etc... 
115 NEXT n 

120 CLOSEOUT 


Nous venons ainsi de stocker, avec 5 lignes 
de programmes, 50 fiches. 


Pour les relires, il convient d'employer le 
même procédé. 


200 OPENIN "AGENDA" 

205 FOR n = 1 TO 50 

210 INPUT #9, no$(n),pr$(n) ,nu$s(n),ru$(n) ,etc... 
215 NEXT n 

220 CLOSEIN 


Pourtant tout n'est pas encore parfait, et 
nous allons apporter une dernière amélioration à notre exemple 
de gestion de fichier. 


Dans le programme précédent, si l'utilisateur 
ne remplit que 10 fiches, 50 seront cependant enregistrées sur 
la K7 dont 40 seront vides. C'est à la fois une perte de temps 
et de place sur la bande magnétique. 


Nous allons donc créer ce que l'on appelle un 
pointeur dont le rôle sera de nous indiquer le nombre exact 
de fiches remplies. La valeur de ce pointeur sera sauvée sur la 
K7 juste avant le fichier. 


Si P contient la valeur du pointeur, notre 
programme devient pour sauvegarder les données : 


100 OPENOUT "AGENDA" 


102 WRITE #9, P 

105 FOR N = 1 TO P 

110 WRITE X9, no$ (n) ,prS$S(n) ,nuS(n) ,etc... 
115 NEXT N 

120 CLOSEOUT 


À la lecture, il va falloir lire d'abord la 
valeur du pointeur, et ensuite les fiches enregistrées. Le 
programme de lecture se déduit assez facilement du précédent 


200 OPENIN "AGENDA" 

202 INPUT #9, P 

205 FOR N = 1 TO P 

210 INPUT #9, no$(n) ,pr$ (n) ,nu$ (n) ,etc... 
215 NEXT N 

220 CLOSEIN 


I] est tout a fait possible de procéder 
autrement. On peut par exemple faire des enregistrements fiche 
par fiche. Cela évite, comme dans le programme précédent, de 
recopier l'ensemble du fichier à chaque fois que l'on veut 
rentrer qu'une seule fiche. 


Je ne vous conseille pas cette solution. Elle 
impose en effet beaucoup trop de manipulations de la K7 suppor- 
tant les données et augmente ainsi les risques d'erreurs. 


Je vous recommande par contre de donner des 
noms simples à vos fichiers, et de les noter. 


Il est également plus sage de repérer le 
début et la fin de l'enregistrement, à l'aide du compteur dont 
vous disposez sur l'AMSTRAD. 


Pour qu'une gestion de fichiers soit efficace 
il est indispensable d'organiser de façon très rigoureuse le K7 
sur lesquelles on doit trouver ces fichiers. En particulier il 
vaut mieux ne pas mettre sur la même K7, le programme et le 
fichier. 


Pour les fichiers importants, on prendra le 
soin d'effectuer une sauvegarde de secours sur une deuxième K7. 


4) Le programme AGENDA 


C'est une application directe de ce qui 
précéde. Il possède tous les éléments indispensables à une 
gestion de fichier, mais peut naturellement faire l'objet d'amé- 


liorations, et, à votre gré, être adapté à un usage profession- 
nel. Nous vous fournissons l'ossature, à vous d'exercer vos 
talents. 


Le programme est cependent tout à fait utili- 
sable dans sa version de base. 


Il vous est possible de travailler sur 50 
fiches, comportant chacune 7 rubriques. 


Le menu vous offre 5 options : 


—- créer une nouvelle fiche 

—- retrouver une fiche 

- enregistrer le fichier sur la K7 
- lire le fichier sur la K7 

- lister le fichier à l'écran 


vous pourrez par exemple y'ajouter un sous 
programme de correction de fiches, une sortie imprimante où tout 


= 


autre option à votre qout. 


Pour terminer sur ce programme, vous remar- 
querez que les lignes 310 à 430 permettent de remplir les fiches 
en utilisant les tableaux, une boucle FOR NEXT et l'instruction 
INPUT. 


GESTION FICHE 


2 REM --------""""" "2" "2" "2" "0 
5 REM GESTION DE FICHIERS 
7 REM ----------"-""" "2" "2" "2" "2" "0 
10 MODE 1 : INK 0,0 :CLS 


20 DIM no$(50),pr$(50),nu$(50) ,ru$(50),vi$(50) ,te$(50),p#f$(50),b(50) 


30 V=0 


100 
110 
115 
120 
130 
140 
150 
160 
170 
175 
180 
190 
200 
203 
205 
207 
208 
210 
300 
302 
305 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
500 
505 
507 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 


REM AFFICHAGE DES OPTIONS DU PROGRAMME] 

CLS : FOR N=1 TO 40 : PRINT CHR$(42); : NEXT N 
PRINT 

PRINT TAB(10)"# # MENU #“ #" 


PRINT : FOR n=1 TO 40 : PRINT CHR$#(42);:NEXT n 

PRINT : PRINT : PRINT "CREER UNE NOUVELLE FICHE < 1 >" 
PRINT : PRINT "RECHERCHER UNE FICHE 2: >" 

PRINT : PRINT “IMPRIMER LE FICHIER SUR LA K7 < 3 >" 

PRINT : PRINT "LIRE LE FICHIER SUR LA K7 < 4 >" 

PRINT : PRINT "LISTER LE FICHIER A L’' ECRAN € 15: 


PRINT : PRINT : PRINT TAB(14)"votre choix ?* 
a$=INKEYS:1IF a$="" THEN 190 

1F a$<)>"1" AND a$<)>"2" AND a$<>"3" AND a$<)>"4" AND A$()>"S5" THEN 
REM 

REM CHOIX DU SOUS PROGRAMME SELON LA VALEUR DE A$ 

REM 

a=VAL(a$) 

ON a GOTO 300,500,700,900,1100 

REM -------------- 
REM CREATION DES FICHES 

REM ----------- 
V=V+1 : FOR n=v TO 50 : CLS 

PRINT TAB(12) "Creation de fichiers" 


PRINT : PRINT : INPUT “nom "jno$i(n) 

PRINT : INPUT “premon “;pr$(n) 

PRINT : INPUT "No , nom de la rue "jÿnu$in),ru$i(n) 
PRINT : INPUT "cde postal et ville "jvig$(n) 

PRINT : INPUT "telephone "jte#i(n) 

PRINT : INPUT “profession ";pf#(n) 

PRINT : PRINT "Une autre fiche ? (O/N)" 


a$=INKEYS : IF a$="o" OR a$="O0" THEN 430 

IF a$="n" OR a$="N" THEN 420 ELSE 400 

ven : n=50 

NEXT n 

IF v=S0 THEN CLS : PRINT'fichier complet * 

FOR n=1 TO SOO:NEXT n : REM attente 

GOTO 100 : REM retour au menu 

REM ----------—— 
REM Recherche d’une fiche 

RES eee 2e ne A ee A RS RS ee de 9 en 
IF v=O THEN GOSUB 3000 : GOTO 100 

CLS : PRINT "Vous connaissez :" 

PRINT : PRINT : PRINT "le nom CE a 
PRINT : PRINT “le prenom < 2 >" 

PRINT : PRINT “le numero de telephone < 3 >" 

PRINT : PRINT : PRINT TAB(14) "Votre choix 7?" 

a$=INKEYS : a = VAL(a$) : IF ai OR a>3 THEN 570 

CLS : ON à GOTO 590, 600, 610 

INPUT "nom ";a$ : GOTO 620 

INPUT "prenom “;a$ : GOTO 620 


190 


610 INPUT “numero de telephone ";a$% 

620 x=1 : FOR n = 1 TO v : b(x)=0 

630 IF a$=no$(n) OR a$=pr$(n) OR a$=te$(n) THEN b(x)=n : x=x+i 

640 NEXT n : IF x=1i THEN GOSUB 3500 : GOTO 100 

650 FOR n=1i TO x-1 : CLS 

660 PRINT : PRINT "nom : "; no$(bn)) : PRINT : PRINT "prenom : ";pr$(b{n)) 
670 PRINT : PRINT "adresse : "jÿnu$(b(n));5", "“;ru$(b(n)):PRINT 

675 PRINT "Ville : “;vi$(b(n)) : PRINT 

680 PRINT “telephone : "jite$(b(n)) : PRINT : PRINT "profession “;pf$(bin) 
690 a$=INKEYS : IF a$="" THEN 690 

695 NEXT n : GOTO 100 

200. REM ===-=5=-ssssssesessssssn = res -sseessss--s-ssse=s 

705 REM impression du fichier sur cassette 


710 CLS : PRINT : INPUT “nom du fichier ";jÿa$ : IF LEN (a$) 216 THEN 710 
720 PRINT : PRINT "PREPAREZ VOTRE CASSETTE " 

725 a$="!"+a$ 

2730 PRINT : PRINT “ET APPUYEZ SUR LES TOUCHES REC ET PLAY" 

732 PRINT : PRINT"APPUYEZ SUR UNE AUTRE TOUCHE" 

735 B$S=INKEYS:IF B$ = "" THEN 735 

737 C$=RIGHTS(AS,LEN(AS)-1):PRINT:PRINT "Sauvegarde du fichier ";c$ 

740 OPENOUT a$ 

750 WRITE #H9,v 

760 FOR n=1i TO v 

770 WRITE #9, no$(n),pr$(n),nu$(n),ru$(n),vi$(in),te#(n),pf$#(n) 

780 NEXT n 

790 CLOSEOUT 

800 GOTO 100 

PO0 REM .=-====2=-S 22e SES ESS SSSR USERS SSSR ESS 

905 REM lecture du fichier sur cassette 

DO7 'REM=ESS EE SNS=SesesTeeeSsSes Ses see ss Ses ess eS ee 

910 CLS 
930 PRINT 
940 PRINT 
945 PRINT 
950 OPENIN "“" 

960 INPUT 4H9,v 

970 FOR n=1 TO v 

980 INPUT #9,no$%(n),pr#$(n),nu$(n),ru$(n),vi$(n),te$(n),pf${n) 
990 NEXT n 

1000 CLOSEIN : GOTO 100 

11400 REM--------22-- esp me mmmmrménn=msssesss msn 
1105 REM Affichage du fichier a l'ecran 

1107 REM ===" sms memmens memes 
1110 IF v=0 THEN GOSUB 3000 : GOTO 100 

1120 FOR n=1 TO v : CLS 

1130 PRINT : PRINT "nom : “jÿno$i(n) 


PRINT “PREPAREZ VOTRE CASSETTE" 
PRINT "ET APPUYEZ SUR LA TOUCHE PLAY" 


1140 PRINT : PRINT “prenom “spr$in) 

1150 PRINT : PRINT “adresse : "jÿnu$(n);", ";ru$(n) 
1155 PRINT : PRINT "ville : "jvig(n) 

1160 PRINT : PRINT “telephone : "jte$i(n) 

1170 PRINT : PRINT "profession : ";ÿpf$(n) 


1180 a$=INKEYS : IF a$="" THEN 1180 

1190 NEXT n : GOTO 100 

3000 REM ----------------------- 
3005 REM fichier vide 

3007 REM---===----2==rssSsresmmemétnssesmsssses sense emsssissen 
3010 CLS : PRINT "fichier vide, option impossible " 

3020 FOR n=1 TO 500 : NEXT n 

3030 RETURN 


3500 REM ------------ 
3505 REM recherche negative d'une fiche 

3507 REM ------------ 
3510 CLS : PRINT "cette fiche n'existe pas ” 

3520 FOR n=i TO S00 

3530 NEXT : RETURN 


5) Le programmé compte chèque 


Ce programme vous permet de gérer un compte 
chèque de 100 chéques avec 7 ecritures par fiches. 


Il comporte, par rapport au listing précé- 
dent, deux options suplémentaires : 


— une possibilité de correction qui s'avére 
indispensable sur des programmes de fichiers un peu sophisti- 
qués, 


— une sortie imprimante qui vous permet de 
conserver une trace ecrite de votre travail. 


Vous noterez, dans le cours du programme, 
l'utilisation intensive de l'instruction PRINT USING, tant à 
l'ecran que sur l'imprimante, qui améliore considérablement la 
présentation des chiffres, en faisant, dans le cas présent, une 
tabulation automatique autour de la virgule 


Vous remarquerez également que pour le pre- 
mieér chèque, le programme vous demande le solde du compte, étant 
bien entendu qu'il ne peut le deviner. Pour les autres chèques, 
le solde est calculé par l'ordinateur, ce qui est la moindre des 


choses. 


Nous vous laissons maintenant regarder ce 
listing, si le coeur vous en dit. Il ne doit poser aucune diffi- 
culté, du moins nous l'espérons, au programmeurs avertis que 
vous êtes devenus. 


COMPTE CHEQUE 


LO IREM: === SSSR sensersnmemesr ne frsneniesnes 
20 REMCOMPTE CHEQUES 

GO-REM:=--S2SS SSSR RSS mm etes ee esse ss Tes ee 
SO v=1:DIM da$#(100),cr (100) ,de(100),50(100) ,nu#$(100) ,ob#(100) 
LOO'REM. TS nsss sers esse esse sense ssennesres 
110 REM choix des options 

120 REM-=--<= SSSR s ses sSsS esse s see ess 
130 CLS:PRINT STRING$(40,230) ; 

140 PRINT:PRINT TAB(10)CHR$(243);" OPTIONS ";CHR#$(242) 
150 PRINT:PRINT STRING$(40,230) 

160 FOR n=2 TO 4:FOR m=1 TO 40 STEP 39 

170 LOCATE m,n : PRINT CHR$(230); 

180 NEXT m : NEXT n 

190 PRINT:PRINT:PRINT:PRINT" Saisie de compte"; TAB(30)CHR$#(243);" 1° 
200 PRINT:PRINT" Correction"; TAB(30)CHR$(243);" 2" 

210 PRINT:PRINT*" Recherche d’un cheque"; TAB(30)CHR$(243);" 3" 
220 PRINT:PRINT" Listing du fichier";TAB(30)CHR$(243);" 4" 
230 PRINT:PRINT" Sortie imprimante"; TAB(30)CHR$#(243);" 5" 
240 PRINT:PRINT" Enregistrement sur K7";TAB(30)CHR$(243);" 6" 
250 PRINT:PRINT" Lecture sur K7"; TAB(30)CHR$#(243);" 27" 

260 PRINT:PRINT:PRINT TAB(14)"Votre choix 7?" 

270 a$=INKEYS$S:1IF a$="" THEN 270 

280 a=VAL(a$):1I1F ai OR a>7 THEN 100 

290 ON a GOTO 330,710,500,1000,1100,1300,1500 

300 REM. ----------ssns-mmmmmmmmemmsssemsmssmmesemmmmssses.s 
310 REM saisie des cheques 

B20: IREM TES SSSR Se SES RSS ss Ses esse ses 
330 IF v=100 THEN GOSUB 2000 : GOTO 100 

340 FOR n=v TO 100 : CLS : PRINT TAB(14) "cheque no : "jÿn 

350 PRINT:PRINT:INPUT “date d’emission :'sda$in) 

370 PRINT:INPUT “numero de cheque :"jÿnu$i(n) 

380 PRINT:INPUT "credit :"scrin) 

390 PRINT:INPUT “debit :"sdel(n) 

400 IF n>1 THEN GOTO 420 


410 PRINT: INPUT "solde :"$so(n):GOTO 440 

420 soln)=so(n-1)+tcrin)-deln) 

430 PRINT:PRINT'"solde : "5: PRINT USING "hhhhHH.HH-";so(n) 
440 PRINT:INPUT “objet :"sob#(n) 


450 PRINT:PRINT: a=0:GOSUB 2200 

460 IF a=1 THEN v=nti:n=100 

470 NEXT n : GOTO 100 

S00' REM ------------2=s nes en S En SANS SSeennses==nesS=nss=s 
510 REM recherche d’un cheque 

520 REM -------— = 
530 IF v=1 THEN GOSUB 2100 : GOTO 100 

S40 CLS : PRINT : PRINT *“ vous connaissez :": PRINT:PRINT 

SS0 PRINT "1 --- le numero du cheque":PRINT:PRINT"2 --- le montant du cheque" 
S60 PRINT:PRINT"3 --- le solde” 

570 PRINT:INPUT n: n=INT(n): IF n<1i OR n>3 THEN 570 

580 CLS : a=0 : ON n GOTO 590,625,660 

590 INPUT "entrez le numero du cheque";jnrs$ 

600 FOR j=1 TO v-1 

610 IF nr$=nu$(j) THEN n=j:j=v-1 : a=1 

620 NEXT j : GOTO 690 

625 INPUT “entrez le montant du cheque "“;dr 

630 FOR j=1 TO v-1 


640 IF dr=delj) THEN n=j:j=v-1 : a=i 
650 NEXT j : GOTO 650 

660 INPUT “entrez le solde";jsr 

670 FOR j=i TO v-1 

680 IF sr=so(j) THEN n=j:;j=v-1 : a=1 
685 NEXT j 

690 IF a=0 THEN GOSUB 2300 : GOTO 100 
700 CLS : GOSUB 2400 : GOTQO 100 


710 REM ----- rommmememsemmmsenmpenesesmsmmmemeenmesemmnsesmss 
720 REM correction d’un cheque 
730 REM ------------"""""""""""""""""" "1 


740 IF v=1 THEN GOSUB 2100 : GOTO 100 

750 CLS:PRINT:INPUT “numero du cheque a rectifier";jch 

760 IF ch<O OR ch>v-1 THEN GOSUB 2310 : GOTO 750 

7270 CLS : PRINT TAB(14) "cheque no : "j$ch 

780 PRINT:PRINT:PRINT "dte emis. : "jda$(ch);" "j;:INPUT a$ 
790 da$(ch)=a$ 

800 PRINT:PRINT:PRINT"num.cheg. : "jÿnu$(ch);" ";:INPUT a$ 
810 nu$(ch)=a$ 

820 cr(0)=cr(ch) 

830 PRINT:PRINT:PRINT'"credit 5: “scrich)5"  ";ÿ:INPUT x 
840 t=cr(0)-x: 

850 crich)=x 

860 de(0)=del(ch) 

870 PRINT:PRINT:PRINT'"debit : “isdelch);5" "3;3:INPUT x 
880 u=de(0)-x 

890 delch)=x 

900 so(0)=so({ch) 

910 sotch)=s0(0)-t+u 

920 FOR z=ch+1i TO v-1 : so(z)=so(z-1)+cr(z)-de(z):NEXT z 


930 PRINT:PRINT:PRINT"solde 5: “5s0(0);" "“jiso(ch) 
940 PRINT:PRINT:PRINT'objet 5 "“sob$(ch);" ";:INPUT a$ 


950 ob$(ch)=a$ 

960 GOSUB 2340 : GOTO 100 

1000 REM ------mmmmmmmm mm mm mm mm mm mm mm mm mm mm mm 

1010 REM listing du fichier 

1020 REM --------------——— 

1030 CLS : IF v=1i THEN GOSUB 2100 

1040 FOR n=1i TO v-1:CLS 

1050 LOCATE 5,24:PRINT “tapez sur enter pour sortir" 

1070 PRINT TAB(3)"sur une autre touche pour continuer":LOCATE 1,1 

1080 GOSUB 2400 : IF a$=CHR#(13) THEN n=v-1 

1090 NEXT n : GOTO 100 

1400 REM-===-==-S=-=SSssemeeesnmss rss nssesesmse mens sense 

1110 REM sortie imprimante 

1120 REM ---------- 

1125 CLS 

1130 PRINT #H8,STRINGS(80,"-"):PRINT #8,TAB(6) "date"; TAB(17)"num.ch."; 
1140 PRINT #8,TAB(30)"credit";TAB(43) "debit"; TAB(Sé) "solde"; TAB(71) "objet 
1150 PRINT #8, STRING#S(80,"-") 

1160 FOR n=1 TO v-1 : CLS : PRINT TAB(6)"impression cheque no : 
1170 PRINT #8,TAB(3)da#&(n); TAB(14)"1";TAB(16)nu$(n);TAB(26)"l"; 
1180 PRINT #8,TAB(27)" ";:PRINT H#8,USING"H#HHH.HH";cr(n); 

1190 PRINT #8,TAB(39)"1I";TAB(40)" ";:PRINT H#S8,USING "HhHHH#.HH";de(n); 
1200 PRINT #8,TAB(52)"1";TAB(53)" ";:PRINT #8,USING "HhHHH#.HH#-";so(n); 
1210 PRINT #H8,TAB(65)"1";TAB(68) ob#i(n) 

1220 NEXT n : GOTO 100 

LIOOLREM, === 5-5 Ses RES Sense ss er semer en es esse 

1310 REM enregistrement sur k7 

1320 REM ------------— 


“sin 


1330 
1340 
1350 
1355 
1360 
1362 
e,” 

1365 
1367 
1369 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1500 
1510 
1513 
1520 
1525 
1530 
1540 
1550 
1560 
1565 
1570 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2100 
2105 
2110 
2120 
2130 
2140 
2150 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2300 
2310 
2320 
2330 
2340 
2350 
2400 
2410 
2420 
2430 


CLS:IF v=1 THEN GOSUB 2100 : GOTO 100 

PRINT “Enregistrement du fichier sur k?7" 

PRINT : INPUT "nom du fichier";a$:IF LEN (a$)>16 THEN 1330 

a$="!"+a$ 

PRINT:PRINT"preparez votre K7":PRINT 

PRINT "et appuyez sur les touches REC et play ":PRINT "de votre magnetophon 


PRINT "puis sur une autre touche” 

b$S=INKEYS:IF b$="" THEN 1367 

PRINT : c$=RIGHTS(a$,LEN(a$)-1): PRINT “Enregistrement du fichier ";c$ 
OPENOUT a$ 

WRITE #H9,v 

FOR n=1 TO v-1 

WRITE #9,da$(n),nu#(n),crin),deln),soin),ob#i(n) 

NEXT n 

CLOSEOUT 

GOTO 100 

REM == 
REM lecture sur K7 

REMi=SSSSSSsSSeS eee e=sms ses sens esse sense Sense 
CLS: PRINT:PRINT:PRINT'"lecture sur K7":PRINT:PRINT"preparez votre k7":PRINT 
OPENIN ‘“* 

INPUT #9,v 

FOR n=1i TO v-1 

INPUT #9,da$(n),nu$(n),crin),deln),soin),ob#$(n) 

NEXT n 

CLOSEIN 

GOTO 100 

REM =----=——-2---msmmemmnmmmmmmnmmmssemmmmmmmmmss—- 
REM fichier cloture 

REM ----- mm 
PRINT:PRINT'fichier complet" 

PRINT'vous ne pouvez prendre cette option" 

FOR n=1i TO SOO:NEXT n 

RETURN 

REM == 
REM choix des options 

REM -------------mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm—— 
CLS : PRINT:PRINT"fichier vide” 

PRINT"vous ne pouvez choisir cette option" 

FOR n=1 TO 500 : NEXT n 

RETURN 

REM ---------------n mm 
REM message et test 

REM, === mmmetomsmemmemesesemmene=mmmses 
PRINT “on continue (o/n)"; 

a$=INKEYS:1IF a$="" THEN 2240 

b=ASC(a$):1F b=79 OR b=111 THEN 2280 

IF b=78 OR b=110 THEN a=1:GOTO 2280 

GOTO 2240 

RETURN 

REM --------mmmmmmsmmmmmmmmmmmmmmmmm——— 
REM recherche de cheque infructueuse 

REM ----------—mmmmmmmmmmmmmmmsmmmmmmmmmmmmmmmmmmmmmm—— 
PRINT:PRINT"Ce cheque ne figure pas dans le fichier" 

FOR j=1 TO 500 : NEXT ;j 

RETURN 

REM. === mme nm mme memes 
REM affichage des rubriques 

REM: === SSSR se SR See Se Sr Sne se SS ss e sn SseSeses 
PRINT TAB(13)"Cheque no "in 


2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 


PRINT:PRINT:PRINT'"date d'emission : "sda$(n) 


PRINT:PRINT"numero du cheque 


PRINT:PRINT'"credit 
PRINT:PRINT'"debit 
PFRINT:PRINT'"solde 
PRINT:PRINT'objet 
a$=INKEYS: IF a$="" 
RETURN 


THEN 2500 


"snu$i(n) 
“scrin) 
“sdeln) 
“5:PRINT USING 

";sob$(n) 


"HHHHH.HH-";so(n) 


CHI ENTRER 


COMPTABILITE GENERALE 


Les trois programmes que nous vous présentons 
, facture, comptabilité générale, et bulletin de payes, ont été 
faits dans le cadre d'un projet de comptabilité générale pour 
petites entreprises. 


Vous constaterez qu'ils demandent tous les 


trois à être améliorés, pour peu que vous fassiez un petit 
effort. Nous ne pouvions en effet, les programmes étant enreqis- 
trées sur une K7 fournie avec le livre, offrir un système 


complet de comptabilité pour des raisons évidentes. 


Quoique ces programmes fonctionnent en l'é- 
tat, nous vous indiquerons pour chacun d'entre eux les modifi- 
cations qu'il convient de /faire pour pouvoir disposer d'un 
système complet et efficace. 


1) Facturation 


Ce programme vous permet pour un même client 
d'établir une facture unique pour plusieurs produits. 


Après vous avoir demandé les références 
propres à la facture (Code client, code représentant ,date et 
numéro de facture), le logiciel vous demande à l'écran les 
références du produit. On y trouve : 


- la référence du produit ou son numéro de 
code s'il y'en a un, 

—- la désignation, où le nom du produit, 

- le code de la T.V.A. , 1, 2 ou 3, 

— le prix unitaire brut, 

— le pourcentage de la remise accordée, 

— la quantité. 


Si vous avez d'autres produits à facturer pour 
votre client, le programme reprendra la série de questions à 
partir des références du produit, et non sur celles de la factu- 
re. 


Lorsque vous n'avez plus de marchandise à 
facturer pour un même client, le programme affiche l'ensemble de 


la facture à l'écran sur 80 colonnes. 


MODIFICATIONS 


vous avez sans doute remarqué que nous avons 
choisi le mode 2 à l'affichage de la facture, afin de disposer 
de 80 colonnes. Beaucoup d'imprimantes sont en effet sur 80 
colonnes, et 51i vous faites un sous programme pour obtenir la 
facture sur l'imprimante, vous aurez exactement la même présen- 
tation sur votre téléviseur ou sur le papier. 


Pour imprimer la facture, il suffit donc 
simplement de remplacer les PRINT par des PRINT £8, et de reco- 
pier les liqnes d'affichage ecran. 

vous aurez également intérêt à sauvegarder 
votre facture sur une K7. Après avoir créer des tableaux de 
données par l'instruction DIM, vous pourrez sauver votre factu- 
re. Nous vous conseillons de vous reporter au chapitre GESTION 
DE FICHIERS s1i vous eprouvez des difficultés pour réaliser cette 
partie. 


Enfin, pour une meilleure présentation du 
programme à l'écran, il est souhaitable de pouvoir accéder à 
toutes ces options du logiciel par un menu initial qui offrira 
par exemple les choix suivants : 


—- Edition d'une facture 

—- Correction d'une facture 

— Recherche d'une facture sur la K7 
— Sauvegarde d'une facture sur la K7 
— Impression d'une facture 


Et bien d'autres possibilités dont vous 
ressentirez la nécessité. 


FAGTURATION 


10 REM ------------" "D 
20 REM FACTURATION 

30 REM ----------"-"" "2" "UD 
40 DIM e(50),##(50),t(50) ,pu(50),q(50) 

50 DIM r(50),pn(50),qt(50),pht(50),tv1(50) 

60 DIM tx2(50) 

70 BORDER O:INK O,0 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
320 
340 
350 
360 
370 
de 
380 
390 
400 
410 
ix 
420 
470 
43 
45 
440 
479 
430 
490 


MODE 1 

INPUT "nom de la societe (9 car max) ";so$ 

IF LEN(so$)>9 THEN 100 

CLS 

PRINT STRING#$(5,202);TAB(8);" societe ’’ ";so$;" ‘' ";3TRINGH(S5,202) 
PRINT 

INPUT "code client";a 


INPUT "code representant";b 

INPUT "date'";c$ 

INPUT "nO. de facture";d 

FOR i=1 TO 50 : CLS 

INPUT'"'reference";jel(i) 

INPUT'"'designation";f#(i) 

INPUT "entrez le code t.v.a ;code 1=7%,code 2=1S.60%";t(1) 
INPUT'"prix unitaire brut";puli) 

INPUT ‘entrez le pourcentage de la remise";q{i) 

REM calcul de la remise 

r(i)=puti)xq(i)/100 

pnii)=pu(i)-r(i) 

INPUT ‘“quantite";qgt(i) 

pht(i)=pn(i)xatti) 

ti=0.07:t2-0.186 

INPUT "y'a t'il d’autres marchandises pour ce client";z# 
IF z$="o" OR z$="0" THEN 350 

1=i:i=S50 

NEXT i 

MODE 2 

PRINT TAB(2);j"code client ";TAB(24);"code repres.";TAB(S50)"date";TAB(66);"nO 
fact." 

PRINT 

PRINT TAB(4);a;TAB(27);b;TAE(48) ;cH; TAB(48);d 

PRINT STRING#(£0,140) 

at='"ref * designation * code %X prix unit *# remis X prix unit X quant X pr 


ht x" 


PRINT a$ 

PRINT STRING#(80,140) 

z=0 

>=0 

W=0Q 

y=0 

FCR i=1i TO 1 

PRINT @e(i);3TAB(9)5f#(i);TAB(21);t(i);TAB(32);pu(i);TAB(42);q(i);TAB(S1);pnti 


)35TAB(63);qt(i); TAB(71);5pht{i) 


500 
510 
520 
530 
540 
e50 
540 
570 
580 
590 
600 
610 
620 


es 
63 


IF t(i)=i THEN tvi (i)=pht(i)xti : GOTO 520 

IF t(i)=2 THEN tx2(i)=pht(i)xtz 

w=wtpht(i) 

z=z+tvi(i) 

<=xttr2Z(i) 

J=w+tztx 

NEXT à 

PRINT STRING (80,140) 

PRINT TAB(40)"total ht";:PRINT TAB(64) USING "HHHHH HH"s;n 
PRINT TAB(40)"tva a Fh(cdei)";TAB(64) USING D'TPLTIETEES 
PRINT TAB(38)"tva a 18.60% (cde2)";TAB(44) USING "HAHHE HR ; 
PRINT TAB(64);STRING#S(8,140): PRINT ‘ 1 


Ut TAB(40) "net a payer";TABP!464) USING CHHHHH.HH" Sy 
END 


2) La comptabilité générale 


La comptabilité générale offre l'éventail des 
ecritures dont on à besoin pour réaliser sa comptabilité. 


Au départ, le programme avait été présenté 
dans un projet de comptabilité, comme exemple de présentation 
sur imprimante. Il a été adapté sur AMSTRAD, et les tableaux qui 
jouxtent le listing ont été fait à partir d'un AMSTRAD sur une 
imprimante GP 500 


11 permet donc d'afficher les huit tableaux 
que nous vous présentons, à savoir : 


- Les factures fournisseurs, 

- Les comptes fournisseurs individuels 
- Les comptes généraux, 

— Les comptes T.V.A. 

— Les comptes bancaires, 

- les comptes caisse, 

- les comptes clients. 


Pour que le programme puisse fonctionner, 
nous avons rangé un certain nombre de données en DATA, et avons 
ainsi limité le nombre d'écriture. 


AMELIORATIONS : 


La première des modifications à faire et 
évidemment de supprimer cette gestion par les DATA. Vous ne 
pouvez en effet passer de nombreuses écritures en tapant à 
chaque fois des numéros de lignes suivis de DATA, autant le 
faire à la main. 


11 faudra donc créer un sous programme qui 
vous permettra de rentrer vos données à l'écran (Avec l'instruc- 
tion INPUT), et comme pour le précédent programme il est éqgale- 
ment nécessaire de prévoir une sauvegarde sur K7 (ou disquette). 


11 est également souhaitable de prévoir un 
affichage écran, identique à l'affichage imprimante, mais qui 
aura l'avantage d'être immédiat. Vous remarquerez donc, à l'ins- 
tar du programme précédent, que nous avons choisi l'impression 
en 80 colonnes. Il convient donc de mettre l'affichage en mode 
2, et cette fois-ci, de convertir les PRINT £8, en PRINT. 


pourriez étendre l'usage du PRINT USING à l'ensemble de l'affi- 


chage. Nous l'avons utilisé en début de programme à titre 
d'exemple. 


À ce propos, et pour terminer, vous remar- 
querez que nous utilisons qu'un seule instruction PRINT USING 
pour une ligne d'affichage et qu'elle définit, à elle seule, 
l'ensemble des paramètres d'impression. | 


19 CLS PRINT TAB(10)5"X *X MENU % X":PRINT:PRINT:PRINT 

20 PRINT "1 : Afficher les fournisseurs":PRINT 

30 PRINT "2 : Lecture par fournisseur":PRINT 

40 FRINT "3 : Lecture par cpte H.T.":PRINT 

50 PRINT "4 : Lecture par compte T.V.A.":PRINT 

69 PRINT "S : Lecture compte bancaire ":PRINT 

70 PRINT "é : Lectire compte caisse ":PRINT 

89 FRINT "7 : Fsctures clients":PRINT 

90 PRINT "SG Clients individuels":PRINT 

100 FPINT PRINT : INPUT "tapez le numero de l’operation ";5q : q=INT(q) 
115 1F q:8 CR q<i THEN 10 

129 TN g GOTCG 130,470,810,1080,1340,1370,130,510 : GOTO 10 

2:37 CLE : PRINT: INPUT "Nombre d’ecriture ";m: GOSUB 310 IF q=7 THEN 170 


140 PRINT HS,TAB(11)5"XXXXXHXX F A CTURES F 
150 PRINT 
160 PRINT 
170 PRINT 
150 FRINT 
19C PRINT 
200 s=2 
219 s=1 
220 RESTOFE 
239 GOSUB 320 
240 NEXT n 
PS0 GOSUB 450 GOSUB 390 :GOSUB 330 GOSUB 430 
260 FRINT INPUT "tapez 1 pour le retour 
270 IF r=1 THEN 10 ELSE 1600 
230 PRINT #8,"num “;" date 
270 PRINT #H&," code 
329 PRINT #8,"--- 
31C w=0 
320 w=w+g x= 4 y=Yy+e 
330 PRINT #8,x,y,z RETURN 

340 READ ;,a,b#$,c,a$,9,h,d,e,i,f,l : RETURN 
350 PRINT HS,USING"#H#HH#";a;:PRINT HK8,TAB(6);" 
HS ,USING"'HHHH";c; 

240 PRINT H#8,TAB(1S) ;a$; TAB(25)" 
Z70 PRINT HS,USING"HHHHHH.HH HHHHHH.HH HHH HHHHHH 
2515#51 

266 RETURN 

T9OQ REM 

479 FRINT #S,"TOTAL DEBIT", 
116 SETAT #8," 
420 FITURN 

427 PRINT #3,5STRINGS(80, 
330 FETURH 
489 PRINT 
4685 PFETURPM 
170 PRINT 


PRINT 


#8,STRINGS(80,"#") 

#9," ":PRINT #e, “:GOTO 210 
RE,TAB(é) 3 "XKXXKXXEAIX F A CTURES 
HS, STRINGS(64,"Xx") 
BR," ":PRINT #8, 
GOTO 220 


GOSUB 280 
GOSUB 350 


FOR n=1 TO m GOSUB 34 


, 
code";" 


libelle 
TVA 


code 


; 
net 


mou 
; 


5 z=0 RETURN 


z=2zt+f 


RETURN 


"TOTAL NET", 


"TOTAL TVA 





#3,STRINGS( 


#5," 
430 
xx" 
490 FRIHT 
2950 FRINT 
Re PRENT 


#3,STRINCGS(80, 
#2," 


#5, 


x") 
GOTO 550 
TAB CIS) 5 "XX 


4 
e] 


CLIENT IND 


au menu" 


"3DbS;:PRINT H8,TAB(11);" 


RC, TAB(IO)"XKXKXXX F GURNISSEURS 


OURNISSEURS XXKXXXHHX 


CLIENTS XKKXXXKHXX" 


(eo) IF j=8 THEN 240 


sr: r=INT(r) 


CP 
; 


debit "; ; 


Echeance"* 


credit 


"5: PRINT 


cHH HHH HHHHH.HH HHHHHH" 59h; d; 


INDIVIDUEL S Xxx#X#+# 


= 
S 


VI DUE EL LÉRÉS SES 


520 PRINT #8,STRINGS(80,"*X") 
530 PRINT #8," " 


540 CLS : INPUT "code client :";s: GOTO 560 

9590 CLS : INPUT "Code fournisseur : ";s 

560 CLS : INPUT "nom : ";ja$ 

570 PRINT #h#8,"num de compte : ";js,"nom : ";a$: GOSUB 310 
580 n=3 


590 GOSUB 790 : GOSUB 710 : FOR n=1 TO m: GOSUB 340 : IF c=s THEN 610 

400 GOSUB 730 : GOSUB 740 

610 NEXT n 

620 GOSUB 800 

630 INPUT "TAPEZ ENTER POUR REVENIR, AU MENU, t POUR UN AUTRE FOURNISSEUR,2 POUR 

TERMINER";R 

640 r=INT(r):1F r>2 OR r<O THEN 630 

650 ON r GOTO 10,550,660 

660 CLS : MODE 1 : PRINT : PRINT : PRINT * fin" 

670 PRINT:PRINT:INPUT “tapez enter pour lister "jr: IF r<)>0 THEN 1600 

680 CLS : LIST 2000- 

690 GOSUB 730 : GOSUB 740 

700 RETURN 

710 PRINT #8," Num Date Code Libelle Code Debit Credit 
Echeance* 

720 PRINT #8," --- —--- = = 
rene “: RETURN 

730 w=w+g : x=x+th : RETURN 

740 PRINT #8,a; TAB(9) ;b$; TAB(20);ciTAB(27) ;a$; TAB(40) ;d; TAB(49);g9;TAB(59);h;TAB( 

71)51 


750 RETURN 
760 PRINT #8,"TOTAL DEBIT","TOTAL CREDIT" 
770 PRINT HB,"----------- MM ": RETURN 


780 PRINT H8,w,x : RETURN 

790 RESTORE : GOSUB 450 : RETURN 

800 GOSUB 450 : GOSUB 760 : GOSUB 780 : GOSUB 430 : RETURN 

810 PRINT H8,TAB(18);"XXXXXX COMPTES GENER AUX X#x#xxX##" 
820 PRINT #8,STRING#S(80,"#") 

830 PRINT #8," ® 

840 m=3 

850 CLS : INPUT "CODE ARTICLE : "jt 

860 CLS : INPUT "NOM : ";TS 

870 PRINT k8,"num de compte : ";jt,"nom : ";t$ 

880 GOSUB 310 

890 GOSUB 790 : GOSUB 940 : FOR n=1 TO m: GOSUB 340 : IF d=7 THEN 930 
900 y = Yte 

910 PRINT #8,TAB(10);a;TAB(20);b#%; TAB(30);c;TAB(40);a$; TAB(50);d; TAB(60);je 
920 PRINT #8 

930 NEXT n : GOTO 970 


940 PRINT #8,TAB(10);" num"; TAB(20);" date";TABI30);" code";TAB(40);"libelle";T 
AB(50);" code"; TAB(60);"montant" 

950 PRINT H8,TAB(10);" ---";TAB(20);5" ----":TAB(30);5" ----";TAB(40);"------- SET 
AB(S0);" ----";TAB(60);"------- L 

960 RETURN 


970 GOSUB 450 

980 PRINT #8,"TOTAL HORS TAXES" 

790 PRINT NB, "rss ses F 

1000 PRINT #8,Y 

1010 INPUT “TAPEZ ENTER POUR RETOUR AU MENU, 1 POUR CONTINUER,2 POUR TERMINER";ir 
1020 r=INT(r):IF r>2 OR r<O THEN 1010 

1030 ON r GOTO 10,850,1040 

1040 CLS : PRINT : PRINT : PRINT “ FIN" 

1050 PRINT “TAPEZ ENTER POUR LISTER" 


1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 


INPUT R : IF R<>0 THEN 1600 

MODE 1 : LIST 

PRINT #8,TAB(22)3;"#4HHHt COMPTES T V A ht" 

PRINT #8,STRINGS(80,"#") 

PRINT #8 

m=3 

CLS : INPUT "Code t.v.a. :";s 

PRINT : INPUT “nom ‘;ja$ 

PRINT #8,"nom : "ja$,"deductible a “js: GOSUB 310 

GOSUB 790 : GOSUB 1190 : FOR n=1 TO m : GOSUB 340 

z=ztf 

PRINT #8,TAB(10);a; TAB(20);b%; TAB(30);c;TAB(40)j;a%; TAB(S0);iÿTAB(60);f 
NEXT n: GOTO 1220 

PRINT #8,TAB(10);" num"; TAB(20);" date";TAB(30);" code";TAB(40);"libelle"; 


TAB(S0);5" code";TAB(60);"montant” 


1200 


PRINT #8,TAB(10);" ---";TAB(20);5" ----";TAB(30);5" ----";TAB(40);"------- “5 


TAB(50);" ----";TAB(60);"------- . 


1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
7)59 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
2000 
2010 
0 


RETURN 

GOSUB 450 

PRINT #8,"TOTAL TVA" 

PRINT #8,"--------- L 

PRINT #8,z 

GOSUB 430 

INPUT "TAPEZ ENTER POUR RETOUR AU MENU, 1 POUR CONTINUER,2 POUR TERMINER"'ir 
rsINT(Ir):IF r>2 OR r<0 THEN 1270 

ON r GOTO 10,1120,1300 

CLS : PRINT : PRINT" F I N* 

PRINT “TAPEZ ENTER POUR LISTER" 

INPUT R : IF R<>0 THEN 1600 

MODE 1 : LIST 

PRINT #8,TAB(19)5"####t COMPTE BANCAIRE X#HHhtt" 
PRINT #8,STRINGS(80,"#") 

PRINT #8," ": GOTO 1400 

PRINT #8,TAB(21);"#####t C OMPTE CAISSE HHHHt#" 
PRINT H8,STRINGS(80,"#") 

PRINT #8," “:GOTO 1410 

s=560 : GOTO 1420 

s=565 

INPUT “NOMBRE D’ECRITURE : “jm : GOSUB 310 

GOSUB 790:GOSUB 1480:FOR n=1 TO m : GOSUB 340: IF d=s THEN 1470 
W=w+g : x=x+th 

PRINT #8,TAB(7) ja; TAB(17) ;b%; TAB(27);c; TAB(37) ;a$; TAB(47) ;d; TAB(S7);h; TAB(6 


PRINT #8 

NEXT n : GOTO 1530 

PRINT #8,TAB(10);"num"; TAB(18); "date"; TAB(28) ; "code"; TAB(37);"libelle"; 
PRINT #8,TAB(48) ; "code"; TAB(S57) ; "debit"; TAB(67)j"credit" 

PRINT H8,TAB(10);"---"; TAB(18);5"----"; TAB(28);"----"; TAB(37);5"------- “5 
PRINT H8,TAB(48);"----"; TAB(S7);"----- "5TAB(67)3"------ ® 

RETURN 

GOSUB 450 

PRINT #8,"TOTAL DEBIT","TOTAL CREDIT" 

PRINT #8,"----------- Mot ® 

PRINT #8,X,W 

GOSUB 430 

PRINT "Tapez enter pour revenir au menu“ 

IF r=0 THEN 10 

END 

DATA 1,3456, 1éno,195,gabriel1,0,23456.78,610,23456.78,436,12356.78,301180 
DATA 1,1234,1710,195,avoirs/f23,123567.78,0,610,13456.78,436,12456.89,30118 


2020 DATA2,2345,1710,901,untel,5236.45,0,710,4234.45,437,1230.45,0 
2030 DATA3,0,1810,195,gabriel,802.33,0,560,0,0,0,0 

2040 DATA4,0,2110,901,untel,0,5236.45,565,0,0,0,0 

2050 data5,23,345,450,derni,8,3423.89,342,0,34,0,0 

2060 DATA 6,1,234,873,nweod,90,1234.35,28,0,0,24,0 

2070 DATA 8,2,225,342,essai,23,3456.83,90,0,0,0,45 







FACTURES 


ELLEEEEEX: HÉEERELEEEEE 
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HAKEXEEKEX F RC TURES CL IE MTS #Æ#K#HREEEE 
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TIU.Fr date code libelle debit credit code 






3456  16nc 135 
£: 1714 195 
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ARE EEE EEE LAELALAE 
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um de compte TN bernie 


Hi Cate 


5456 


Libelle 









Lebit 
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SALE 


TÜTHL 


KAXEEKE COMPTES GEHER AUX KEEKEHE 
RO ER OR AO AO CO CCE RCE AE RCE EE AE OC OA A AE EE EE EEE EEE EEE 





num de comte :  9ÿ93Z nom : loic 
ira date code libelle code 





3456 16no 195 gabriel 615 


1234 1714 135 auoirs-fis 614 134256. F8 
1 234 563 nec Z& C:] 





CCOMFRTES TV A #EHEHEEEX 
ER RE EE EEE EE EEE EE UE EURE EE EE EEE EE EE EEE EE EE EEE EEE 






ARRETE EEHEEE 


ro quie déductible à 





code libelle 
135 : 





TOTAL TYA 









LOMFTE EAHCHAIFRE X 
ARE EEE EE EEE EEE EEE EE EE EREEX 






” 
RER ELEEEEEELEEEEEEEEX 


code libelle code debit credit 





gabriel 615 
irig 135 avoirs/fzs 619 
1 254 573 nueod 23 





##x C'OMFTE CHIS 
++ #+ 





+++ 
ARE EEE EE EEE EEE EEE #4 +++ 


+ ARR EEE EEE AE ER EE EEE ET 





DAT date code lLibelle code debit credit 
GA4SE lé 135 aabriel 14 rS 
1234 1F14 135 avoirs-F23 614 Ca] 123567, 78 


1 234 573 nueod 28 1254.35 30 





3) La fiche de paie 


Encore un programme à adapter à vos besoins 
l'édition d'un bulletin de paie. 


Ce dernier insipire les mêmes commentaires 
que les deux listing précédent. Il fait une présentation du 


bulletin à l'eran, et il est sans doute inutile de vous dire que 
ce serait tellement mieux sur un imprimante. 


Pourtant une édition de bulletin de paie 
présente un problème un peu particulier. En effet sur ce genre 
de document, certaines données sont constamment modifiées, 
d'autres le sont plus rarement et certaines jamais ou presque. 


Par exemple les noms, prénoms et qualifica- 
tions sont modifiés à chaque fois que vous établissait un nou- 
veau bulletin de salaire (surtout si vous avez beaucoup de 
salariés). Mais pour d'autre au contraire, employant le même 
personnel depuis fort longtemps, ces références sont pratique- 
ment immuable. 


Il convient donc de déterminer, selon vos 
besoins, quelles sont les données stables, ou celles qui ne le 
sont pas. 


Si votre programme est bien fait, les donnees 
qui sont constament renouvelées doivent être très facilement 
accessibles à l'utilisateur et le programme doit être conversa- 
tionnel pour ce genre d'éléments. Par exemple on verra s'affi- 
cher à l'ecran la phrase : 


Nombre d'heures faites au cours de ce mois ? 


Et l'utilisateur n'aura qu'à répondre à la 
question posée. 


Pour des données pas trop souvent modifiées, 
on les stockera par exemple sur K7 dans un fichier, ce qui 
permettra de les charger en début de programme, et évitera 
surtout de les retaper à l'écran à chaque bulletin de paye, ce 
qui est fastidieux et finit par devenir plus*long qu'à la main. 


Enfin pour des données fixes, on prendra soin 
de les déterminer dans le corps du programme (ou listing), ce 
qui présente l'avantage de la rapidité d'accès et de la sécuri- 


té. Par contre la modification est plus complexe pour l'utilisa- 
teur qui doit, pour ce faire, rentrer dans le corps du program- 
me . 


En conclusion on peut dire que plus les 
données sont sujettes à des modifications plus elles doivent 
être faciles d'accès. 


En contre partie des données invariables 
doivent être inaccessibles. 

L'art du programmeur consiste à ne pas gêner 
l'utilisateur par des demandes de données inopportunes et de ne 


pas compliquer l'accès à des informations trop souvent modi- 
fiées. 


C'est entre ces deux écueils que vous devez 
essayer de naviguer. 


BULLETIN DE PAYE 


S REM ----------mmmmmmmmmms mms e 
7 REM BULLETIN DE PAŸYE 
9 REM == mm mm mmmmmmsmmmssmmm-mm2me 
10 REM £dition du fichier irdividuel 

1S REM --------------- us smmensms sms 
22 BSPDER 9 : INK C,o : CLS 

SO IMECT 'oom “3 n$ 

9 IPPUT "prenom ";5p$ 

59 INPUT "qualification ";q$ 





ED INEUT numera de securite sociale ";ÿns$ 
70 INPUT "ecde ";ca 

RC INOUT "periode ce paie ";jpr 

99 INPUT "date 42 la paie ";dp$ 

: prire ";5p 








ii FEM Edition du bulletin de paie 


izC CLS : MODE 2 

120 FRINT " BULLETIN DE PAIE" 

140 PRINT STRING#$(70,154) 

150 PRINT TAB(5);"nom et prenom"; TAB(25);"qualification"; TAB(50); "numero de sec. 
soc." 

155 PRINT 

160 PRINT TAB(S);n$; TAB(25) ; q$; TAB(S2) jns$ 

170 PRINT TAB(S5);p$ 

190 PRINT 

200 PRINT TAB(0);"code";TAB(25);j"periode de paie"; TAB(60);"date de la paie" 

210 PRINT | 

220 PRINT TAB(O);cd; TAB(28) ;pr;TAB(65S) ; dp#$ 

230 PRINT 

240 INPUT “APPUYEZ SUR ENTER POUR VISUALISER LA SUITE “;Z 

250 r=0 

260 PRINT TAB(8); STRING$ (60,154) 

270 PRINT TAB(0O);"code";TAB(7);"elements de paie"; TAB(30);"base";TAB(40);"taux"; 
275 PRINT TAB(50);"bases";TAB(60);"gains"; TAB(68) ;j "retenues" 

280 PRINT TAB(8);STRING$ (60,154) 

290 ci=10 : c2=20 : c3=30 : c4=40 :cS5=50 

300 sb=0 

310 b=186.6 

320 t=25 : g=b#t 

330 PRINT TAB(O);ci;TAB(7); "salaire de base";TAB(30);b;TAB(40);jt;TAB(S50);b#$;TAB( 
60);g 

340 PRINT TAB(O0);c2; TAB(7) ; "prime"; TAB(60);p 

350 sb=sb+g+p 

360 PRINT TAB(O);c3; TAB(7); "salaire brut"; TAB(60);sb 

370 ssb=3.5 : ri=ssb+sb/100 

380 PRINT TAB(O);c4;TAB(7);"s.s sur brut";TAB(40);ssb; TAB(S0);sb; TAB(69);iri 

290 tsp = 1.5 : r2=tspxsb/100 

400 PRINT TAB(Q);c5;TAB(7);"s.s sur plafond"; TAB(33);tsp; TAB(S0);sb; TAB(68);jri 
410 cé=60: c7=70 : c8=80: c9=90 : c10=100 

420 tvp=4.7 : r3=tvpx#sb/100 

430 PRINT TAB(0)jcé;TAB(7);5"s.s.viell./sal.plaf";TAB(40);tvp; TAB(S0O);sb; TAB(68) ; 
r3 

440 tc=0.84 : r4=tcxsb/100 

459 PRINT TAB(O);c?7;TAB(?) ; "chomage"; TAB(40);tc; TAB(S0O); sb; TAB(68) ;r4 

460 rcp=é.18 : rS=rcp*xsb/100 . 


470 PRINT TAB(O);c8; TAB(7);"ret.compl./plaf";TAB(40);rcp; TAB(S50);sb;TAB(68)jrs 
480 rcd=1.76 : ré=rcdxsb/100 

490 PRINT TAB(O)jic10;TAB(7);"ret.compl des cadres";TAB(40);rcd; TAB(50);sb;TAB(68 
)jré 

S00 ttc=ritr2+r3+tr4trStré 

510 PRINT TAB(O);c10;TAB(7); "total des cotisations"; TAB(é68);jttc 

520 ai=110 : a2=120 : a3=130 

530 ni=sb-ttc 

540 PRINT TAB(O);al; TAB(7);"net imposable"; TAB(60);jni 

550 tp=23 

S60 PRINT TAB(O0)jÿa2;TAB(7); "prime de transpt";TAB(60);tp 

570 np=ni+tp 

580 PRINT TAB(O);a3; TAB(7);"NET À PAYER";TAB(60) np 

590 PRINT 

600 INPUT “TAPEZ SUR ENTER POUR CONTINUER"; Z 

610 CLS 

620 PRINT TAB(8) ; STRING#$(60,154) 

630 cb=sb : cni=ni : br=sb : rt=ttc 

640 PRINT TAB(O);"cum/bas";TAB(13) ; "cumbrut";TAB(28) ; "“cumnet imp"; TAB (38) ; "brut"; 
TAB(45) ;j "retenues"; TAB(55);j"net.imp";TAB(65);j"net a payer" 

650 PRINT TAB(8); STRINGS (60,154) 

660 PRINT TAB(O);cbs;TAB(13) cb; TAB(28);cni; TAB(38) ;br; TAB(45)jrt; TAB(SS)jini;TAB 
(65) ;5np 

670 PRINT TAB(8); STRINGS#(60,154) 
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